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SECTION I 
INTRODUCTION 

Proper computer program documentation is essential to the effective 
use, maintenance, and modification of computer software. The documentation 
should be comprised of both user and programmer information and be designed 
to fill the informational needs of the personnel ultimately responsible for 
using, maintaining or updating the software* The amount and quality of the 
software documentation produced are usually dependent on two major factors 
in the program development cycle — the length of time allotted for 
development and the number of people assigned to the development effort. 
Normally, the longer the duration of a project and the larger the software 
development team, the greater the need for software documentation* Proper 
documentation (1) provides a means to efficiently monitor and control long- 
term projects, (2) provides an understandable, transferrable method of 
communication between the project team members and future users or program 
modifiers, and (3) reduces the time consuming, labor intensive process of 
duplicating the development effort if key project members leave or the 
program is moved to another site and/or the programs require modification or 
updating. If the software documentation is adequate^ only minimal problems 
arise when it is trodified or transferred to new locations* If the formal 
documentation is inadequate, or nonexistent, the new user is faced with the 
formidable and tedious process of manually flow charting the program to 
determine program logic and defining the program variables prior to 
proceeding with any modifications. One solution to this approach is to 
develop a computer aid with the capability to accurately and expeditiously 
decipher the program logic and automatically provide a flow chart. 

BACKGROUND 

The Chief of Naval Education and Training (CNET) tasked the Training 
Analysis and Evaluation Group (TAEG) to document selected software 
components of the AOP portion of the Foreign Military Sales (FMS) financial 
management system* The specific objectives of the tasking were to: 

# describe the structure of the FMS system and its elements, along 
with the logic for completing summary billing 

# provide an operator's guide that would improve understanding of 
the program logic and procedures necessary to use the system 

# document the specific system programming details of the FMS FY 80 
costing/billing programs. 

At the outset of this effort, little formal documentation was available 
other than comments contained in the program software concerning program 
structure and use. In order to understand how the programs worked, it was 
necessary to determine program logic and define software variables and their 
interrelationships. The need to accomplish this formidable labor intensive 
effort as the necessary prelude to achieving the FMS study objectives served 
as the impetus for automating this process. 
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PURPOSE 

This document describes a computer aid designed to decipher and 
automatically flow chart computer program logic and provides the computer 
code necessary for this process. This computer aid reduces the labor 
intensive manual process of producing a flow chart for an undocumented or 
inadequately documented program. This TAEG developed program (hereafter 
called BASCHART) automatically produces an annotated flow chart for any 
program that uses WANG (MVP) BASIC-2 programming language. 

ORGANIZATION OF THIS REPORT 

In addition to this Introduction, one other section and th; ie 
appendices are provided. Section IT describes the BASCHART flow charting 
program and its development and provides a detailed user's guide. Appendix 
A provides a system diagram of the BASCHART program showing the 
interrelationships between the subsystems contained in the program. It also 
contains a listing of the subroutines with brief descriptions of their 
purpose. Appendix B contains definitions of the BASCHAPT alphanumeric 
variables. Appendix C provides the WANG BASIC-? computer code for the flow 
charting program. 
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SECTION II 

SYSTEM DESCRIPTION AND USER'S GUIDE 

This section briefly summarizes the development of the BASCHART 
program^ describes the hardware requirements^ and contains a user's guide 
for the BASCHART. 

DEVELOPMENT HISTORY 

The WANG MVP flow charting program is an extensive modification of an 
existing program developed at the University of Central Florida^ Orlando. 
In the conversion^ many of the unique WANG functions were implemented to 
provide as complete a documentation system as possible. The original 
program, operated in a batch environment^ was designed to work in Harris 
BASIC on relatively short and noncomplex programs. BASCHART is an online 
interactive program that can be used on any WANG BASIC*2 program regardless 
of program length or programmers' writing technique. The program can also 
isolate a given segment of a program and flow chart only that portion. The 
user is provided substantial flexibility because BASCHART has been modified 
to interact with the WANG operating system and disk catalog structure. 

HARDUARE REQUIREMENTS 

BASCHART is written using WANG 3ASIC-2 and can be operated on a WANG 
2200 MVP within a 56K partition. The user should have a line printer 
available and must supply the BASCHART program with the program to be flow 
charted from either a floppy disk or a fixed disk storage medium. 

BASCHART OPERATING PROCEDURES 

It is assumed that the required computer hardware (CRT^ DISK DRIVE^ and 
LINE PRINTER) is available to the user intending to use the BASCHART 
program. Initializing the equipment is an extremely easy task. However, 
because of the many possible equipment configurations » it is desirable that 
personnel knowledgeable in WANG equipment set up the system for subsequent 
use. After loading and starting the execution of program BASCHART, the 
following screen will appear. 



BB38b8 A SSSSSS CCCCCC 

8 e A A b C 

B8BBB8 A A SSSbSS C 

8 8 AAAAAAA S C 

8 6 A A S C 

BBBBBe A A SSSSSS CCCCCC 



H H A RRKKKft TTirfTT 

H H A A , R H 1 

HHHHHHH A A ftKHKhR T 

N H AAAAAAA R K T 

H HA A R R T 

H HA A ft R T 



This program is designed to create a logic flow chart of any active 
program on disk ln the BASIC-2 language. 

Is it your intention to run the program 'BASCHART'? (Y/N) 
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Entering an N will return the user to the WANG operating syiitem. If 
the user enters a Y, the following screen will be displayed: 



***** DISK ADDRESS YOUR PROGRAM ***** 



DISK ADDRESSES AVAILABLE: 325 825 365 DIO Dll D13 



ENTER DISK ADORESS 



The user must now enter the disk address where the program to be flow- 
charted IS located. Entering a valid disk address will enable the program 
to scan the specified disk directory and automatically present the following 
display: 







DISK Dll CATALOG OF PROGRAMS 






10. 


20. 


30. 


40. 


1. 


11. 


21. 


31. 


41. 


2. 


12. 


22. 


32. 


42. 


3. 


13. 


23. 


33. 


43. 


4. 


14. 


24. 


34. 


44. 


5. 


15. 


25. 


35. 


45. 


6. 


16. 


?6. 


36. 


46. 


7. 


17. 


27. 


37. 


47. BASCHART 


8. 


18. 


28. 


38. 


48. BASICout 


9. 


19. 


29. 


39. 


49. BASchart 


FN '4 


= END PROGRAM / 


FN '5 = SEARCH 


/ FN '6 = BASCHART 


PROGRAM 




510 


TOTAL PROGRAMS 


PRESS RTN/FN? 





This display lists the programs contained at the disk address 
previously specified. This initial display contains the first 49 programs, 
after that the programs are presented in groups of 50. Pressing RETURN will 
cause the next group of 50 programs to appear. Repeating this process will 
present succeeding groups of programs until all the programs available at 
that disk address have been displayed. The total number of programs 
available on the disk is continuously displayed at the bottom of the screen. 
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Selecting FN M = END PROGRAM will return the user to the WAi4G 
operating system. 

If the user does not know the entire name of the program or its correct 
spelling, use the search capability of BASCHART, special function Key *5. 
Selecting FN *5 = SEARCH will cause the screen to display the following: 





***** 


DISK Oil 


CATALOG OF PROGRAMS 


***** 




10. 


20. 


30. 


40. 


1. 


11. 


21. 


31. 


41. 


2. 


12. 


22. 


32. 


42. 


3. 


13. 


23. 


33. 


43. 


4. 


14. 


24. 


34. 


44. 


5. 


15. 


25. 


35. 


45. 


6. 


16. 


26. 


36. 


46. 


7. 


17. 


27. 


37. 


47. BASCHART 


8. 


18. 


28. 


38. 


48. BASICout 


9. 


19. 


29. 


39. 


49. BASchart 



INPUT CHARACTER STRING: B A S 



The user is required to input a character string that approximates the 
program name. Using this character string, a search of the existing catalog 
index will be made and all the programs contained on the disk with that 
character string will be displayed as indicated below: 







***** DISK Dll SEARCH ***** 




47. 


BASCHART 




48. 


BASICout 




49. 


BASchart 






Three files were searched out with string BAS. 




FN 


'4 = END PROGRAM /FN '5 = SEARCH /FN '6 = BASCHART PROGRAM 






510 TOTAL PROGRAMS PRESS RTN/FN? 
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The user should now be able to identify the specific DroQram to be 
flow charted. 

Once the user has identified the desired prnqram (either by entering 
program name or by us^inq the search function, FN '5) and located the oroqram 
number, special function key '6, FN '6 = BASCHART PROGRAM, is used to 
initiate the subroutine by which the number of the proQram (in this instance 
47) to be flow charted is entered. 

Pressing FN '6 wiU cause one of the following screens to be 
displayed. If the user has previously employed the search function (FN '5)^ 
the following will appear: 



****r* DISK Dii SEARCH ***** 

47. BASCHART 
4B. BASlCout 
49. BASchart 

Three files were searched out with string BAS. 

WHAT IS THE NUM3ER OF THE PROGRAM? 



If the user knew the program name and consequently pressed FN '6, the 
following will be displayed: 



***** DISK DU CATALOG OF PROGRAMS ***** 





10. 


20. 


1. 


11. 


21. 


2. 


12. 


22. 


3. 


13. 


23. 


4. 


14. 


24. 


5. 


15. 


25. 


6. 


16. 


26. 


7. 


17. 


27. 


8. 


18. 


28. 


9. 


19. 


29. 



30. 40. 

31. 41. 

32. 42. 

33. 43. 

34. 44. 

35. 45. 

36. 46. 

37. 47. BASCHART 

38. 48. BASlCout 

39. 49. BASchart 



WHAT IS THE NUMBER OF THE PROGRAM? 
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Once the user enters 3 valid program number by either alternative, he 
has identified the specific program to be flow charted utilizing the 
BASCHART program. 

After entry of a valid program number, a sequence of questions vs asked 
pertaining to printer address, program line number (starting and stopping 
for the flow chart)^ and program subroutine structure. The first screen 
requests a valid printer address. 



PRINTER ADDRESSES AVAILABLE: 204, 215, 216, 211, 005 



SELECT PRINTER ADDRESS: 



Entering the desired printer address will cause the following screen to 
appear: 



PRINTER ADDRESSES AVAILABLE: 204, 215, 216, 211, 005 

SELECT PRINTER ADDRESS: 215 

DO YOU WANT A HARD COPY PRINTOUT DF YOUR ENTIRE PROGRAM? (Y/N) 



If a Y is entered, the er^tire program will be flow charted and printed. 
If an N is entered, which indicates a desire to print only a portion of the 
flow charted program, the following display will appear: 



At what line No. do you want a hard copy print to start? 
If first line No. of program, type in '0000'==*^ 



At what line No. do you want the hard copy print to end? 
If last line No. of program^ type in '9999'=^=^ 



(Proc^issing is done from the start regardless of where your line No. begins) 



ERIC 
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The user must now enter the starting and stopping line numbers of the 
portion of the program to be flow charted, 

NOTE: If printer address 005 (CRT) Is selecterU questions pertaining 
to starting and ending line numbers will not appear. The entire flow charted 
program will appear on the screen in a continuous roUup display. 

Once the program line numbers are entered^ the following display^ 
requesting the inclusion of remarks and image statements^ appears; 



00 YOU WISH TO INCLUOE THE REMARKS AND IMAGE STATEMENTS IN THE FLOW CHART? 

(Y/N) 



A Y response will includf? all jiroqram remarks and image statements in 
the flow chart. An N response will exclude all statements of that type and 
results in a flow chart cont^iining only program logic. 

Regardless of which entry is made^ the following screen will appear: 



If your program has marked subroutines^ are all of them after the 
main program? 



Y = Will cause the oversized heading, 'SUBROUTINES', to be printed 
upon encountering the first marked subroutine. Everything after 
this is assu''ied by the program to be subroutine connected. 



N = Will treat ail subroutines as if they are found within the main 
program. No oversized 'SUBROUTINES* heading is printed. 



SELiCT OPTION (Y/N) 
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A Y response will cause the BASCHART program to print the heading 
•'SUBROUTINES" when it encounters the first subroutine in the program being 
flow charted. This signifies that the main program is complete and 
everything that follows the SUBROUTINE heading is, in fact, a subroutine. 
If the user inserts an N, no heading will be printed and the BASCHART 
progra;n will treat the subroutines as if they are contained in the main 
program. 

Finally, a list of all the user's responses is presented providing 
the ability to re-input the data ^f erroneous results were entered. 



Your program name is 

Your program is on disk address 

Your program will be flow charted on 

You want a printout of the entire program 



BASCHART 



on 

215 
NO 



Starting at line number 
Ending at line number 



0 

100 



You want remarks & image statements included 

Your marked subroutines follow the main program... 



YES 
YES 



Key return to continue, any other key to re-input data 



After the user enters the desired response, BASCHART will proceed to 
flow chart the requested program. If a portion of a program is to be 
flow charted on a printer, and that portion does not begin at zero, the 
screen wili display the flow chart of the program beginning at the first line 
number. The reason processing is done from the first Line Number, 
regardless of where the user would like the flow chart to begin, is simply to 
know if printing is started in a loop or branching sequence. When the ' 
starting Line Number to be printed is encountered, the screen displays the ' 
status, while flww charting if done at the printer. 



mc 
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Our i no the f Inw chart i orrcf^ '^^i 
user informed to status by displ^i'' 


, Lhc i)AS(JHART program will keep the 
inci iy\i^ rollowinf) screen; 


<<<<<<<<<<<<< « 


RtAO.NG »>>»>>»>»» 


0190 IF D7$-"00S" 


IHtN PRINT HEX(03) 


now at sector # 36036 
Ending sector # 36219 


numbered statements in sector: 1 
Percpntage of processing completed: Z% 




NOW FORMING A FLOW CHART 


OF BASrHART ON PRINTER 215 




[^REMARKS ARE 


BEING INCLUOEO] 


OPERATOR NOTE: PROCESSIfjfi 
THE AVERAGf 


TIME VARIES WITH EACH PROGRAM. 
[ IS 10 MINUTES FOR EVERY 30 SECTORS. 



The status screen displays the line that is currently being flow charted, 
the ending sector, the sector being flow charted, and the percentage of 
processing completed. Once finished, the program returns to query the user 
as to any more flow chart requirements at this time. 

BftSCHART PROGRAM FLOW CHART 

This subsection contains an example of the automated flow charting 
output produced by the BASCHART program. Program comments are supplied by 
BASCHART during the processim and at the end of an entire printout. The 
cotrments can range from remarks about the proqramming technique to remarks 
about a command or commands that could not be translated properly from 
hexidecimal or exceeded the parameters of the BASCHART program. 
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flow chart of program BASChART 
////////////////,'/////////////////////////////////////////////////////////////////////// 

( ) 

( START ) 
( ) 

1 

V 
1 

1 

1 

• 

REM as: 'BASCh/WT' makes a flowchart of any given program 
REM : ( Charles C. Johnson ) TAEG - U.S. NAVY Software 
REM N.T.C Orlando, Fl. 

REM % dimensioned for sector reading 

. 

1 
. 

0120 

: PROCESS : 



0120 
0120 



COM Zl 

DIM Z$(256)4,Q3$(256)2,Q2$(256)2,Q1$2,Q0$2,X$(256) J$8 



V 
I 



REM 36 dimensioned for the statement conversion 
t 



.0120 



PROCESS 



0120 



OIM Q7$(123)2,Q6$124 



REM % dimensioned for sorting + statement assignment 

! 0130 

PROCESS 



0130 



OIM Q2(256) ,W$(256)2,L3(256)2,A$124,Ai$124 
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REM 
% :; 

^ « I 

% :: 



NOW FORMING A FUOW-CHART OF imm»it ON PRINTER 



.0170 



PRXESS 



0170 



SELECT PRINT 005(80) 



1 
« 

V 

* 

r 



/===============/ 0170 

/ / 

( ( PRINTING ( ( 
• • 

• • 

) ) 

/ 

/ PRINT / HEX(0F);HEX(03) 

/===============/ 

1 

V 
1 

1 

REM % dimensioning for main program 

« 
* 

'. 0180 

PROCESS 



0180 
0180 
0180 
0180 
0180 



DIM A2$124,B2$124,C2$l2;i,02$12i(,F$l24,F2$17i(,K2$l24,L3$l2i(,SS>$l2i( 

DIM E$10,Ni5,Ul$3 

DIM L1$(50)124,L2$(50)124 

DIM F0(30),V(30) 

G1=0.. . 
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t 

i 

/•0190 
/ • 
/ • 

/ IF •N2=oaoo 

/ THEN • 

/ [YES] /===============/ 

* / ( PRINT ( AT(6, 33); "Thinking..." 

• / # * 



[NO] 



V 

i 
• 

« 

i 

/•0I90 
/ • 
/ * 
/ IF •07$='»005" 
/ THEN • 

/ CYES] /===============/ 

/=-=======] / / 

/ ( PRINT ( HEX(03) 

• / # # 

t 

[NO] 

t 
• 

V 

i 
• 

• 

i 

/*0I90 
/ • 
/ • 
/ IF *07$='«2I5" 
/ THEN $ OPEN /2I5 
/ 

• / 
• / 

• / 
•/ 



V 
t 



* 
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• 

/*0190 
/ * 
/ * 
/ IF *07$=»'216" 
/ Th€N $ OPEN /216 
* / 
* / 
* / 
* / 
*/ 

1 
* 

V 



• 

/*0190 
/ * 
/ * 
/ IF *D7$=»20A" 
/ THEN $ OPEN /204 
* / 
* / 
* / 
* / 
*/ 

1 
« 

V 



• 

/*0190 
/ * 
/ * 
/ IF *07$=»'211» 
/ THEN $ OPEN /2L1 
* / 
* / 
* / 
* / 
*/ 

I 

V 

I 

t 



IS 



Technical Note 3-82 



PROCFSS 



0200 



.0200 



S9$sHEX(20) 



V 

r 
1 
1 



/*0200 
/ * 
/ * 

/ IF *D7$='»005" OR N2[]0000 
/ THEN 08$="005" 
* / 
* / 
* / 
* / 
*/ 



V 
I 



0200 



* ELSE * 
*#«•**••**• 



PRXESS 



0200 



1 

V 
1 




.0200 



08$- 07$ 



0200 



SELECT PRINT C08$] (130) 
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APPENDIX A 

SYSTEM DIAGRAM OF BASCHART PROGRAM 
AND 

BASCHART SUBROUTINE LISTING 



20 

IB 



REf ERENCED OfTEN BY 

□ MOST PRINT 
SOafkOUTINES 

flEfCRENCEO t3« TIMES 



mscmaht mwn KHIYl 

READ SECTOR* FROM 
DISK.TMNSUn MTONO. 
ftTATCIIENTS 



START 



UN El fNDtCATE TWO 
WArnOW BETWEEN 

suanovTiNES 



AIL svanOimNES are caueo up. 

pnOCESSEO. AMD CONTROi THEN 
AETUflNS TO THE PRtVlOUS 
SUBROUTINE, EXCEPT: 



0 

0 



SCARCH OUT COMMAMO 
OF (FOR. NEXT. RCII. 
OOTO. OOSOBI 



SEARCH FOR REMARKl 

SEPARATE LINE NO^ FROM COMMAMO 

- CHECK MODULAR (f OR JlBXT) 



SEARCH OUT COMMAND 

Of IPRMT. INPUT. OOVJB. OOTa 
STOP. EN a RETURN) 



\/\/\//\/W" 



JZ 



EI 





11' 









o 



o 



o 
I 



er|c 
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Figure A-1. Interrelationship of BASCHART Subroutines 
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BASCHART SUBROUTINE LISTING 



Subroutine 
'4 

'8 

* '10 

* '15 

'19 

* '20 

'30 
'35 

'40 
'45 

'50 
'60 

'65 
'66 



Line Purpose 

3680 Print direction lines branching horizontally in and 
out of the flow of logic 

3650 Print (down) direction lines with arrows, prior to 
printing a new sequence in the flow chart 

1670 Search new command string for (0N..G0SU8, 
ON. .GOTO, FOR. .NEXT, REM, GOTO, GOSUB), 
AND send to appropriate subroutine 

1480 Search command string for (REM, 

separate the line No. from the command, 
in modular phase check for (FOR. .NEXT) 

3800 Modular print routine or comment on 
(IF.. THEN) or (FOR,. NEXT) statement 

1830 Search new command string for (IF.. THEN, PRINT, INPUT, 
STOP, END, LOAD, RETURN) AND send to appropriate 
subroutine 

2420 Print (FOR symbol) in a (FOR. .NEXT) 
Loop, branch out for start of loop 

2*>?0 Print (NEXT symbol) in a (FOR. .NEXT) 
Loop, branch Ul fof ^nd of loop 

2620 Print routine for (ON, .GOTO, ON. .GOSUB) 

2850 Print (GOTO symbol) 

2920 Print (STOP, END, LOAD symbols) 

2120 Print routine for (IF.. THEN) branching sequence 
and symbol 

2980 Print routine for ELSE, ERROR) 

Loop branching sequence, begin Loop 

3960 Print routine for (ELSE, ERROR) 

Loop branching sequence, terminate Loop 

*One of three main directional subroutines that 
decide, based on the present command string, what 
print subroutine to call up and process. 
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Subroutine 
'75 
'80 

'81 
'82 
'83 
'85 

'90 

'91 
'92 

'93 

'95 

'96 

'98 

'99 

1100 



8ASCHART SU8R0UTINE LISTING (continued) 
Line Purpose 

3040 Print REMARKS from program being flow charted 

3550 Print routine for (data process) symbol, 
unidentified commands default here 

3080 Print routine to end (data process) symbol 

3860 Print routine for (PRINT symbol) 

3940 Print routine to end (PRINT symbol) 

3120 Print (RETURN symbol) and/or comment on» no 
(STOP) or (END) encountered prior to this 
subroutine 

3180 Print flow chart (down) direction lines or straight 
or in branched, nested Loops 

3230 Print comment on Instruction number out of order 

3280 Print comment on Instruction number 
exceeding the program parameters 

3320 Print routine for Loop flow direction arrow 
( 't' or 'I') up or down 

3370 Search the coinmand string for the Operand, 
or a second main cotrmand statement 

3440 Print comment on illegal 8ASIC-2 Language 
statement encountered 

2020 Loop nest counter for the (FOR. .NEXT) 

sequence, check count is within parameters 

3500 PrirX comment on unmatched Loop complement 
encountered 

1110 Search New command string for the First and Last 
statement of the program and the First and Last 
statement of a marked subroutine^ print summation 
cotrments at end of program run 
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APPENDIX B 
BASCHART ALPHANUMERIC VARIABLES 
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BASCHART ALPHANUMERIC VARIABLES 



A$ holds the command string, after isolating f**om the disk sector 
and translating from hexcode to normal text 

Al$^ holds the current command string line number 

A2$ holds the first word located in the current command string 

B2$ holds the command string, other than the first isolated word of 
the string 

C$ holds the operator input *Y* or *N* on the question of marked sub- 
routines following the main program body 

C2$ holds the operand section of the current processed command string 

D2$ holds the second command encountered in a large string command 
(double command string) (i.e., ELSE, ERROR, IF. .THEN) 

D7$ holds the printer address 

08$ holds the temporary printer address 

09$ holds the disk address 

E$ holds the referenced line numbers in (ON. .GOTO), (QN..GQSUB) statements 

F$ holds temporary first word of the current command string 

F2$ holds the variable and starting value in a (FOR.. NEXT) statement, 
to use later in identifying the end of loop 

K2$ holds the (FOR..) or (..NEXT) command in the modular phase of the 
flow chart being created 

L3$ holds the (FOR..) or (..NEXT) command during a check routine to match 
each with its correct complement 

N$ holds the present statement line number 



N$ 

50$ 

Ql$ 
Q6$ 
S9$ 



holds the locations of the starting line nunbered statements, for 
each sector of the program being processed 

holds the location of the end of sector data marker (FO) or (FE) for 
each sector of the program being processed 

holds the first byte of each command string and, if needed, the trans^ 
lated ASCII of the hexcoded command byte 

holds a blank field, used in translating statements during the 
flow charting sequence of the program 



ERIC 
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BASCHART ALPHANUMERIC VARIABLES (continued) 
T$ holds the name of the program being flow charted 

Tl$ holds the temporary value of 'S9$', used as a flag when encountered to 
Indicate some operation was completed 

T2^ holds the entire (intact) command string, while elsewhere it is 
being broken down «nd processed during the flow chart sequence 

Ul$ holds the location in a command string, while being read from the 
sector, of the actual end of the statement, not counting the ';' 
(colon), which can be a statement separator 

21$ holds the operator input 'Y* or 'N' on the question of including 
remarks and Image statements in the flow chart output 
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BASCHART ALPHANUMERIC ARRAY VARIABLES 

holds the sorted sector location of each beginning string command 

holds the stored^ nested (FOR.. NEXT) statement^ to match against 
each equal complement 

holds the stored line number of each nested^ starting 
(FOR.. NEXT) statement 

holds locations of each start of numbered statements in 
each sector^ read by the program 

holds locations of each start of nonnumbered statements 
in each sector^ read by the program 

holds the ASCII equivalent of a hexcoded command 

holds the hexcoded commands used in the BASIC*2 Language 

holds the sector position of each ":" mark» and later each 
in the sector currently being read 

holds the work array for the MAT SORT command 

holds the entire sector being read by the proqram 

holds the temporary location of statements tn the Process of 
Isolating string commands^ later it holds the sorted location^ in 
the sector being read» of each string command prior to its being 
translated from hexcode into ASCII 
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APPENDIX C 
BASCHART COMPUTER CODE LISTING 
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lQ/25/82 BASchart 
PROGRAM LISTING 

10 REM %• 

10/25/82 BASchart 
PROGRAM LISTING 



Technical Note 3-82 
PAGE i 



PAGE 2 



BASchart - start program for 

the BASCHART flowchart: REM ! [ Charles C. Johnson ] TAEG-U.S. NAVY S 
oftware : REM N.T.C. Orlando, Florida 

20 REM C$(450)8 - File Names from the Disk Oirectory. 

30 REM Cl$2 - File Status in hex. 

50 REM % 
dimensioning 

60 COM Cl9$3,T$8,08$3,07$3,Q4$a23)10,Q5$(123)lO,Zl$l,C$l,N2,N3 

: DIM N2$4 ,N3$4, Z2$l , Z3$3, Z4$3, Z5$3 ,A$3 

:0IM N$8,S$2,S2$2,Z$3,Z1$1 
70 OIM B$a6)16,C$ai00)8,Cl$2,C2$(1100)8,L$ai00)2,W$ai00)2: HEM % 



ERIC 



:$PSTAT»"8ASCHWT" 
80 C3()=ALL(FF) 
90 IF A=l THEN 230 

:IF Zl=l THEN 210 
100 PRINT HEX(06) 

:FDR G=l TO 3 

:E^1 

:F=36 

:H:0 
110 H=H+1 

:PRINT HEX(0306) 

:E=E-1 

:F=F-4 

:PRINT HEX(06);AT(E,F);B0X(H«2,H*8) 
:IF E[jO ANO F[]0 THEN 110 
:NEXT G 
:PRINT HEX(03) 
120 % BBBBBB A SSSSSS CCCCCC 
TTTTTT 

130 % B B A A S C 



140 % 
T 

150 % 

1 

160 % 



BBBBBB A A 
B B AAAAAAA 



B B 
BBBBBB 



A 
A 



170 % 
T 

180 PRINT AT(7,0); 

:PRINTUSING 120 

:PRINTUSING 130 

:PRINTUSING 140 

:PRINTUSING 150 

:PRINTUSING 160 



A 
A 



SSSSSS 
S 

SSSSSS 
S 
S 

SSSSSS 



C 
C 
C 

CCCCCC 
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H 

H 



H 

H 
H 
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H A RRRRRR T 

H A A R R 

A A KRRRRR 

H AAAAAAA R R 

HA A R R 

HA A R R 
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lQ/25/82 BASchart PAGE 3 

PROGRAM LISTING 

:PRINTUSING 17Q 

190 PRINT AT(17,lQ);"'mis program is designed to create a loaic flowcha 
rt of" 

:PRINT AT(i8,12);"any active program on disk in the Basic-2 language. 
200 Z1$=HEX(00) 

:PRINT AT(22,7);"Is it your intention to run the program 'BASCHART' ? 

(Y/N)"; 
: KEVIN Zl$ 

•IF Z1$=»N" OR Zl$="n'' THEN QOSUB '4 

:IF Z1$[]"Y" AND Zl$C]"y'' Th€N 200 

:PRINT HEX(03) 
210 A=l 
220 REM % 

========= SELECT DISK 



:CX>SUB '205 
230 DATA LOAD BA T#1,(0)B$() 
:ERRORPRINT HEX(07) 
:GOTO 220 

240 % •••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

««««««««« 

250 % * NOW Loading All the Active Programs on »m 

« 

260 % •••••••••••••••••••••••••••♦«••••••••••••••••••••••••••• 

270 PRINT HEX(0306);AT(e,0); 
:PRINTUSING 240 
:PRINTUSING 250,09$ 
:PRINTUSING 260 
:I=0 

280 S2$=STR(B$(1),1,2) 

:S=VAL(S7R(S2$,2,1)) 
290 S$=ALL(FF) 

:L=0 

:L1=0 

: CI $=HEX(1 080) 
300'pRlNT HEX(06);AT(ie,25);"L0ADlNG CATALOG"; 
310 REM % 

======== LOAD FILE N(WES iNT 

0 C3() =^»======» 

320 St=ADOC BIN(l) 

330 IF S$]aS2$ Th€N 420 

340 OATA LOAD BA T#1,(S$)B$() 

350 PRINT AT(18,45,5);AT(18,45); S; 

:S=S-1 
360 FOR Jsl TO 16 
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10/25/82 BPSchart PAGE 4 

PROGRAM LISTING 

37Q IF STR(B$(J),1,2)[]STR(C1$,1,2) THEN 390 
38Q L=L+1 

:C5(L)=STR(B$(J),9,e) 
39Q NEXT J 
ftOO GOTO 320 

AID REM % 

==3====== SORT FILE NAMES 



H20 PRINT HEX(06);AT(ie,25);" Sorting the Catalog " 
:IF L=Q THEN 5QQ 

:mat sort c5() to W$(),L$() 

il30 MAT MOVE C5(),L$(l) TO C23(l) 

:PRINT HEX(0306) 
AAO FOR l2=1 TO L 

Hit^ PRINT HEX(06);AT(0,20);"»**** Oisk '^OSS;** Catalog of Programs ♦♦*»» 

M 

i(50 IF M00(L2,10)=0 THEN a=a4-15 
H6Q IF LI [66 T^€N H80 

:L1=0 
H7Q QOSUB 810 

H80 PRINT HEX(06);AT(M00(L2,10)+3,Ll);L2;T/e(a+4);C2$(L2) 
H90 NEXT L2 
500 GO SUB 810 
:L1=0 

:GOT0 una 



5HQ REM % 



OEFFN'5 / SEARCH R 



OUTINE ========== 

550 OEFFN'5 

560 PRINT AT(22,0,79) 

570 PRINT AT(22,20); "Input character string:"; 

:LINPUT-N$ 
580 IF N$[ ]« " THEN 600 

590 PRINT AT(22,0,79);AT(22,0); 

: RE TURN 



600 MAT SEARCH C23(),=N$ TO L$() 
610 IF L$(1)]HEX(0000) THEN 640 
620 PRINT AT(22,52);"N0T ON FILE" 
630 GOTO 570 



6ft0 J, 11=1 
:J1=2 
:Y1=0 

:FOR K=0 TO 21 
:PRINT AT(K,0,80) 
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lQ/25/82 BASchart PAGE 5 

PROGRAM LISTING 

:NEXT K 
:K=1 

65q'iF L$(J)=HEX(Q00Q) THEN 780 

655 PRINT HEX(Q6);AT(Q, 20) Oisk ";09$;" Search of Programs ***** 

660 XsVAL(L$(J) ,2) 
670 Y=lNT((X-l)/8)+l 
680 IF Y1 = Y THEN 715 
690 I=MOD(J1,10)+1 
700 IF I[ ]1 THEN 720 
710 11=11+15 

:J1=1 

:I=2 

:IF Il]70 THEN 11=0 
:GOTO 720 

715 IF M00(J,45)[ ]0 THEN 760 

:PRINT AT(18,12-LEN(N$));K-l;"Files were searched out having ";N$;" ( 
more on next screen)" 
:GOSUB 810 
:I=2 

:J1,I1=1 
tGCTO 760 

720 IF M00(J,45)[]0 THEN 730 

:PRINT AT(ie,12-LEN(N$));K-l;"Files were searched out having ";n$;" ( 
more on next screen)" 
:GOSUB 810 
:I^ 

:J1,I1=1 

730 PRINT AT(I+3,I1+4);B0X(1,9);AT(I+3,I1);Y;AT(I+3,I1+5);C2$(Y) 

:K=K+1 
740 Y1=Y 
750 J1=J1+1 
760 0=J+1 

770 IF J[=L THEN 650 

780 PRINT AT(18,20-LEN(N$));K-l;"Files were searched out with string ";N 

$ * 

tGOSUB 810 
790 N$=ALL(20) 
:G0T0 5 70 

800 REM % 

========= LOAO ROUTINE 



810 PRINT HEX(06);AT(20,0,79);AT(20,2);"[ Fn'4 = End / FN'5 = Search / F 
N'6 = Program you want to run on bASCHart ]" 

:PRINT HEX(06);AT(22,0,79);AT(22,17);L;" Total Programs ";HEX(06); 
:INPUT " PRESS [RTN/Fn] ",A$ 
820 IF A$=HEX(0D2O20) OR A$=" " OR A$="[R]" THEN 830 
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lQ/25/82 Bffichart PAGE 6 

PROGRAM LISTING 

:A$="[R]" 
:GOTQ 81 Q 

83Q PRINT HEX(Q3) 
:RETURN 

640 REM % 



========= DEFFN'205 / SELECT 

OISK SUBROUTINE =====£==== 
850 OEFFN '205 

:PRINT HEX(03);AT(12,ll);"DisI< Addresses available: 325 B25 365 010 
Oil 012 013 B20";AT(13,38);"01ii 015 030 031 032 033 03^1 U35"; AT(l2,8 
);B0X(2,61);AT(9,9);»**** Oisk address of the program you want to Flo 
wchart ****» 
860 PRINT AT(18,2ii);"Select Oisk Address: 

:LINPUT-D9$ 

:PRINT HEX(06) 

:IF D9$=" " THEN QOSUB '4 

:IF P0S("3B0"=STR(D9$, ,1))«P0S("123456'*=STR(D9$,2,1))«P0S( "012345" = 
S7R(DSI3,3,1))=0 Th€N 860 
'.SELECT #1[D9$] 
: RETURN 

870 REM % 



========x OEFFN' UR 

N START =====««=== 
880 OEFFN'4 
:$PSTAT=" " 
:COM CLEAR 
:RETURN CLEAR ALL 

:LOA0 T "START" 

:ERROFPRINT HEX(03) ; AT(8,19) ; "NOT ffiLE TO LOAO ST/WT" 
:ENO 

890 REM % 

========= OEFFN' 6 / LOAO BASCH 

ART ========== 

900 OEFFN'6 

910 PRINT AT(22,0,79) 

920 Z=0 

:PRINT AT(22,10);" 

'.PRINT AT(22,16);"WHAT IS Th€ NlMBER OF THE PROGRAM: **; 



ERIC 
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lQ/25/82 BflSchart PAGE 7 

PROGRAM LISTING 

:LINPUTZ$ 

:IF Z$=" " THEN RETURN 
:CONVERT Z$ TQ Z 
:ERRQRGQTO 92Q 
93Q Z1$=HEX(00) 

:IF Z]L QR Z[l THEN 92Q 
:PRINT AT(22,14);" 

:PRINT AT(22,16);"IS ";C23(Z);" THE PRCGRAM YQU WANT ? (Y/N) 

:KEYIN Zl$ 
940 IF Z1$="N" OR Zl$="n" THEN 920 

:IF ZlSCl^Y" AND Zl$[]"y" THEN 93Q 
950 OIM De$(5)3,C8$2 

:PRINT HEX(Q3);AT(9,13);"Printer Address available: 2Q4 215 216 211 

005" 

:PRINT AT(12,21);"Select Printer Address: "; 

:De$=" " 

:LIM3UT-De$ 
960 STR(De$(),l)= '*20A215216211QQ5" 

:MAT search 08$(),sQ8$ TQ C8$ STEP 3 

:IF C8$=HEX(Q000) THEN 950 
970 DATA "AND", "RLN", "CLEW", "RENUMBER", "TflPE", "OR", "DISK", "TEMP", "XOR", 

"KEYIN","COPY" 

:DATA "DSKIP", "LIMITS", "LIST", "SAVE", "CONTINUE", "NEXT", "IF", "GOTO", "G 
OSUB", "RETURN", "FOR" 

:DATA "DATA", "READ", "LET", "LIM3UT","END", "DIM", "STOP", "TRACE", "ON", "L 
S","ALL ","CU3SE" 

980 DATA "DAC", "DSC", "SUB", "ROT ATE", "PACK", "IWPACK", "BOOL", "ADD", "INIT", 
"ERROR", "ERR" 

:DATA 'VERIFY", "DBACKSPACE","BEG","OFF","CI", "CO", "D","R","CPEN", "LIN 
PUT", "ELSE" 

990 DATA "ROUND","SPACE","PRINTUSING","CONVERT","MWE", "PLOT", "PRINT", "R 
EM", "COM", "RESTORE" 

:DATA 'SELEC T", "LOAD" , "MAT ", "PLOT ", "REWIND" , "BACKSPACE", "SKIP" , "SCRAT 
CH","OA","X" 

:DATA "8A","THEN","T0","STEP","G","P","BT","STR(","HEX(","R£","%","BI 
N(","LEN(" 

1000 DATA "VAL(","NlM(","POS(",'*#","ATN(","SIN(","COS(","WC(","TAB(","DE 
FFN" 

:DATA "FN","#PI","flBS(","COS(","EXP(","INT(","LOG(","SIN(","SGN(","SQ 
R(","RND(","TAN(" 

: DATA "TAN( "FIX( " , "HEX" , "$ ", "LGT( " , "HEX( ", " AT ( " , "HEXOF ( " , "MAX( ", "MI 
N(",'WOD(","VER(" 
1010 REM 

1020 DATA "8A","82","81","83","8F","8B","8E","8D","8C","88","87" 
:DATA "89" , '«6" , '«0" , "85 " , "84", "90" , "9F " , "9C" , "9A " , "9B" , "9E" 

1030 DATA "97" , "98" , "91 " , "99" , "96" , "93", "95" , "90" , "94" , "EO" , "Q " 
:DATA "E3","ED","EE","EF",'*E9","E2","E6","E7","E8","E4","EB" 

1040 DATA ••EC","BC","BB","B3","BA","B5","B8","B7","B6","B4","F0" 

1050 DATA "F2","F4","F3","A7","AE","A0","AF","A0","A2","A6","A3" 
:DATA "A5","AL","A8",**A4","A9","«","AA","AC","BD","BF","BE" 

1060 DATA "B1","B2","B0","DB","D9","DA","D3","D2","D6","D8","DE" 

32 35 
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lQ/25/82 BASchart PAGE 8 

PRXRAM LISTING 

:OATA "(S'S"rc'S''00'%"DF","07",''0ft'',''CD","Dl","CB","CD'',''CE" 
1Q7Q DATA 'CQ'S'i:C'S'Tl'SX3'S'CA'',''C5","C6'',"C7'',"C8'',''C2'',"C9" 

:OATA XA","CF","92","E5","EA","B9","rc","F5","F6","F7",«F8" 

:OATA "F9","F1" 
1Q8Q REM 

1Q90 RESTORE LINE 970 

:FOR 1=1 TO 123 

:REAO Q4$(I) 

:NEXT I 
1100 RESTORE LINE 1020 

:F0R 1=1 TO 123 

:READ Q5$(I) 

:NEXT I 
1110 Z2$=" " 

:07$*08$ 

:N2=0000 

:N3=9999 

:IF De$="005" THEN 1170 
:Z2$=hEX(00) 

1120 PRINT AT(15,6);"Dd you want a hard copy print-out of your entire pro 
gram ? (Y/N)"; 
: KEVIN 22$ 

:IF Z2$="N" OR 22$="n" THEN 113D 
:IF Z2$[]"Y" ANO Z23[]"y" THEN 1120 
:GOTO 1170 

1130 PRINT HEX(03);AT(24,3);"(Processing is done from the start regardle 

ss where yc3ur line No. begins)" 
llAO PRINT AT(10,10);B0X(2,58);AT(l0,ll);"At what line No. do you want a 

hard copy print to start ? " 

:PRINT AT(ll,ll);"If first line No. of program, type in '0000'==]"; 
:LINPUT-N2$ 
:PRINT AT(5,2,78) 
:C0NVERT N2$ to N2 

:ERR0FPRINT AT(5,32) ;".PLEffiE TRY AGAIN." 
:GOTD lUO 

1150 PRINT AT(l4,10);B0X(2,58);AT(l4,ll);"At what line No. do you i*ant th 
e hard copy print to end ? " 

:PRINT AT(l5,ll);"If last line No. of program, type in '9999'==]"; 
:LINPUT-N3$ 
:PRINT AT(5,2,78) 
:C0NVERT N3$ to N3 

:ERR0RPRINT AT(5, 32);". PLEASE TRY AGAIN." 
:GOTD 1150 

1160 IF N3]N2 THEN 1170 

:PRINT AT(5,20);".Soriy, your line No. 's are out of order." 
:GOTO 1140 

1170 Z1$=HEX(00) 

:PRINT HEX(03);AT(5,0);B0X(2,78) 
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10/25/82 bAScha rt PftGE 9 

PROGRAM LISTING 

:PRINT AT(5,2);"Do you wish to include the reiTiarks and image statemen 
ts in the flow-chart?" 
:PRINT AT(6,36);"(Y/N)"; 
:KEYIN Z1$ 

:IF Zl$="y" THEN Zl$="Y" 
:IF Zl$s"n" Then Z1$="n" 

:IF a$="N" OR Zl$="Y" THEN 1180 
:G0T0 1170 

1180 C5=HEX(00) 

:PRINT AT(10,0);B0X(10,79);AT(10,l);"If your program has marked subro 
utines.are all of them after the main program?" 
1182 PRINT HEX(06);ATa3,5);"Y =] Will cause the oversized heading, 'SUBR 
OUTINES', to be printed"; AT(14 ,10) ; "upon encountering the first marke 
d subroutine. Everthing after";AT(15,10);"this is assumed by the prog 
ram to be subroutine connected." 

1184 PRINT HEX(06);AT(17,5);"N =] Will treat all subroutines as if they a 
re found within the";AT(18,10) ; "main program. No oversized 'SUBROUTIN 
ES' heading is printed." 

1185 PRINT ATai,36);"(Y/N)"; 
:KEYIN C$ 

:IF C$="y" THEN C$="Y" 

:IF C$="n" THEN C$="N" 

:IF C$="N" OR C$="Y" THEN 1400 

:GOTO 1170 

1190% :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: 



1200 % : : 
1210 % : : 

« « 

1220 % : : Your program name is 

mmu • : 



1230 


% 


• • 

« « 

• • 




1240 


% 


« * 








### : : 




1250 


% 


• • 

* « 

• • 




1260 


% 


« « 

: : Your program will be flow-charted on 








U» :: 




1270 


% 


:: Your program will be flow-charted on 


the .. 




SCREEN : : 




1280 


% 


• • 
« • 

• • 




1290 


% 


* « 

:: You want a print-out of the entire program 






: : 




1300 


% 


• • 
« • 

• • 




1310 


% 


• « 


mm 
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10/25/82 BASchart 
PROGRAM LISTI^G 



1320 % 
1330 % 
UHO % 
1350 % 
1360 % 
1370 % 
1380 % 
1390 % 



You 
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PAGE 10 



Ending at line number 



want remarks 4 image statements included 



Your marked subroutines follow the main program 



1400 IF N2s:0a00 AND N3=9999 THEN Z3$="YES" 

:ELSEZ3$-" NO" 

:IF Z1$="Y" THEN Z4$="YES" 

:ELSEZ4$-" NO" 

:IF C$="Y" THEN Z5$-"YES" 

:ELSEZ5$»" NO" 

:PRINT HEX(03) 
1410 PRINT 

tPRlNTUSiNG 1190 

tPRlNTUSiNG 1200 

tPRlNTUSiNG 1210 

tPRINTUSiNG 1220,C23(Z) 

tPRlNTUSiNG 1230 

tPRlNTUSiNG 1240,09$ 

tPRlNTUSiNG 1250 

:IF D7$[]"005" THEN PRINTUSING 1260,07$ 

:ELSEPRINTUSING 1270 

tPRlNTUSiNG 1280 

tPRlNTUSiNG 1290, Z3$ 
1420 PRINTUSING 1300 

tPRlNTUSiNG 1310,N2 

tPRlNTUSiNG 1320 

tPRlNTUSiNG 1330 ,N3 

tPRlNTUSiNG 1340 

tPRlNTUSiNG 1350, Z4$ 

tPRINTUSiNG 1360 

tPRlNTUSiNG 1370, Z5$ 

tPRlNTUSiNG 1380 

tPRlNTUSiNG 1390 

:PRINT AT(5,65);B0X(1,9) 
1430 Z2$s" " 

:PRINT AT(23,6);"Press RETURN to continue, any other key to re-input 
data ==] ? "; 
tKEYiN Z2$ 

:IF Z2$=HEX(00) THEN 1440 
:Z1=1 

35 
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10/25/82 BASchart PAGE 11 

PROGRAM LISTING 

:D9$,07$,N2$,N3$,Z$,a$,C$=HEX(20) 
:A=0 

:GOTO 80 

1440 PRINT HEX(03);HEX(020402020E);AT(8,18);"Now Loading main BASChWRT p 
rogram" 
:T$=c2$(z) 
:RETURN CLEW ALL 

:LOA0 T "BASCHART" 

9000 REM % 

GENERAL SUBROUTINE 

:PRINT HEX(030E); "YOU HAVE LOADED 'OEFFnO' THE GENERAL SUBROUTINES"; 

HEX(OA) 

:LIST 

:ENO 

9010 OEFFN '0 "SCRATCHT";HEX(22);"BASchart";h€X(22);":SAVET ()";HEX(22); 

"Bffichart";HEX(2200) 
9070 DEFFN '31 

:G0SUB 



3d 
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lQ/25/82 BASCHART PAGE 1 , 

PRXRAM LISTING 

IQQ REM %1 

lQ/25/82 BASCHART PAGE 2 

PROGRAM LISTING 

•aASCHflRT' makes a flowchart 

of any given program 
HQ REM ! ( Charles C. Johnson ) TAEG - U.S. NAVY Software: REM 

N.T.C Orlando, Fl. 

12Q REM % 

dimensioned for sector readin 

g 

:CQm Zl 

:DIM Z$(256)4,Q3$(256)2,Q2$(256)2,Q1$2,Q0$2,X$(256),T$8: REM % Jimens 
ioned for the statement conversion 
:QIM Q7$(123)2,Q6$124 
13D REM % 

dimensioned for sorting *• s'-a 

tement assignment 

:QIM Q2(256) ,W$(256)2,L$(256)2,A$124,A1$124: REM 
UD9S:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: 



15Q as : : NOW FORMING A FLOW-ChART OF ON PRINTER ### 

160 as :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: 



170 SELECT PRINT 005(80) 

:PRBMT HEX(DF);HEX(03) 
ISO REM % 

diinensioning for main Program 

:0IM A2$124,B2$124,C2$124,D2$124,F$124,F2$124,K2$124,L3$124,Si/$124,Tl 

$124,T2$124 

:DIM E$1D,N$5,U1$3 

:0IM L1$(50)124,L23(50)124 

:DIM F0(30) ,V(3D) 

:GUO 

190 IF N2=D00D THEN PRINT AT(6,33) ; "Ttiinking. . 

:IF D7$="005'» THEN PRINT HEX(03) 

:IF 07$=''215" THEN $CPEN /2l5 

:IF 07$="216" THEN 30PEN /216 

:IF D7$='»204" THEN $CPEN /204 

:IF D7$=»211" THEN 30PEN /211 
200 S9$=HEX(2D) 

:IF D7$="OD5" OR N2[ jOOOO THEN 06$s"005" 

:ELSE08$«D7$ 

tSELECT PRINT C08$] (130) 
tPRINT HEX(OO) 

:PRDMT " Flow Chart of pr 

ogram "-.TS 

210 IF 08$[ j'»005'» THEN PRINT 'V //////////////////////////////////////// 

37 40 



ERIC 
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lQ/25/82 BftSCHART PAGE 5 

PROGRAM LISTING 

///////////////////////////////////////////////////////////////////// 

/////////////////** 
220 PRINT » 

:PRINT » ( )" 

:PRINT ( START )** 

:PRINT " ( y* 

:PRINT " 1" 

:PRINT " V" 

:PRINT 1" 

:PRINT " i" 

:PRINT " 

:PRINT " 
230 SELECT #1 LD9$] 
24Q LIMITS T#1,T$,Q,QQ,Q1,Q1 

:Q8sQ 

25Q IF /©S(Q1)=1 THEN 260 
rSELECT PRINT QQ5(8Q) 

:PRINT HEX(Q3);AT(12,8);"ERR0R, ";T$;« is not an active program«;AT(l 
4i8);*'now Loading BASCHART start program" 
:GOTQ 730 

260 Q8=Qa+l 

:OATA LOAD BA T#l,(0+Q8) X$() 

:MAT SEARCH XSO ,=HEX(FE) TO Ql$ 

:IF Q8+0=Q0 THEN 270 

:IF VAL(Ql$,2)=0 THEN 260 

:Q0=0+Q8 
270 REM 516 

READ SECTORS ON DISK, ONE AT 

A TlhC 
280 0=0+1 

:DATA LOAD BA Tn,(0) X$() 
290 Q23() ,Q3$(),Z3(),W$(),L$(),Q73()=ALL(00) 

:Q1$,Q0$,Q6$=HEX(00) 

:MAT Q2=ZER 

:E5,I=0 

300 MAT RE DIM Q2(256) ,L$(256)2,W$(256)2 
310 REM % 

SEARCH FOR BEGINNING ANO ENDI 

NG LINE STATE^€NTS 
320 IF STR(X$(),2,2)=HEX(0000) THEN Gl=l 

:IF Gl=l THEN 1310 
330 MAT SEARCH X$( ) ,=HEX(FD) TO Ql$ 

:IF VAL(Q1$,2)=0 THEN NWT SEARCH X3( ) ,=HEX(FE) TO Ql$ 
340 MAT SEARCH X$() ,=HEX(2aFF) TO Q0$ 

:MAT SEARCH X3() ,=HEX(0OFF) TO Q23( 
350 MAT SEARCH X$() ,=HEX(3A) TO Q3$() 
360 IF VAL(Q0$,2)]2 THEN Q0$=ALL(00) : REM 

38 



ERIC 



41 
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lQ/25/82 BASCHWT PAGE ^ 

PROGRAM LISTING 



( delete colons in between "" marks ) 
37Q MAT SEARCH XSO ,=h€X(22) TQ Q7$() 

:IF VAl(Q7$(1) ,2)=0 OR VAL(Q3$ (1) ,2)=Q THEN 42Q 
38Q 13,1=1 

390 IF Q3$(I)]Q7$(I3) AND Q3$(I)[Q7$(I3+1) THEN 400 
:IF Q3$(I)[Q7$(I3+1) THEN 1=1+1 
:IF Q3$(I)]Q7$(I3+1) THEN 13=13+2 

:IF VAL(Q7$(I3+1) ,2)=Q QR VAL(Q3$(I) ,2)=Q Th€N 42Q 
:GOTQ 390 



4QQ 12=1 

410 Q3$(I2)=Q3$(I2+1) 

:IF VAL(Q3$(I2+1) ,2)=Q Th€N 39Q 
: 12=12+1 
:GQTQ 41Q 



420 12,1,13=0 

:Q7$(),Z$()=ALL(0Q) 
:IF U5=l Th€N 490 

430 REM % 



delete colons in between % an 



d next line No. 

:MAT re QIM Z$(256)2 

:mT SEARCH X3() ,=h€X(Q8) TO Z$() 

:IF VAL(Z$(1) ,2)=0 THEN 490 

:U5=1 

:Q7$(1)=Z$(1) 
:I2=1 
44Q 12=12+1 

:IF VAL(Z$(I2) ,2)=0 THEN 45Q 

:Q7$(I2+I2-1)=Z$(I2) 

:GOTQ A4Q 



450 Z$()=ALL(QQ) 

:I2=a 
460 12=12+2 

:IF 12=2 THEN 12=1 

:IF VAL(Q7$(I2) ,2)=0 THEN 38Q 
470 MAT SEARCH STR(X$() ,VAL(Q7$ (12) ,2) ) ,=HEX(QQ) 

:I=VAL(U1$,2)+VAL(Q7$(I2) ,2)+3 
480 Q7$(l2+l)=eiN(I,2) 

:GOTQ 460 



TO Ul$ 



ERIC 



490 MAT RE QIM Z$(256)4 

:U5=0: REM % nLmber of statements with line numbers 
5QQ 1=1+1 

:IF VAl(Q2$(1),2)[]0 THEN 5QQ 

:IF VAL(Q0$,2)[]Q THEN 1=1+1 

:E5=I-1 
510 REM % 

39 

42 
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PROGRAM LISTING 

CONWERTING Ul$,U0$,Q2$(,Q3$( 

TO Z3() 
520 1=1 

:I2,I3,Q=0 
530 QsVAL(Ql3,2) 

:CONVERT D TO Z$(l) 

:IF VAL(Q0$,2)=0 THEN 540 

:G1=1 

:I=2 

:Q=VAL(Q0$,2)+1 

:CONVERT Q TO Z3(I),U###) 

:Q2(l)=VAL(Q0$,2)+l: REM % array Q2() will hold the numbered line sta 
^ tements 
5 AO 12=12+1 

:IF VAL(Q2$(I2),2)=0 THEN 570 
:Is:I+l 

550 IF G1=0 THEN W2(I2)=VAL(Q2$(I2) ,2)+l 

:IF Gl=l Th€N Q2(I2+1)=.VAL(Q2$(I2) ,2)+l 

:Q«VAL(Q2$(I2) ,2)+l 

:C0NVERT Q TO Z3(I),(#W) 
560 GOTO 540 

570 13=13+1 

:IF VAL(Q3$(I3) ,2)s0 THEN 620 
580 1=1+1 

590 Q=VAL(Q3$(I3),2) 

:CONVERT Q TO Z3(l), 
600 GOTO 570 

610 REM % 

R^£-DIME^eIONING AND SORTING 

620 MAT RE DIM Q2(E5) ,Z3 (1)4 ,L3 (1)2, W$ (1)2 
630 MAT SORT Z$() TO W$(), L3() 
640 H,H1,H3,H4=0 
650 RtM % 

LOCATING THE STRING A$ BE7WEE 

N EACH Z3() ARRAY 
660 H=H+1 

:COnVERT Z$(VAL(L$(H) ,2)) TO H3 
:IF H3=VAL(Q13,2) Th€N 280 
:H1=H 

:IF HL]E5 THEN HL=E5 
:CONVERT Z3(VAL(L$(H+1) ,2)) TO H4 
:I=0 
670 Isl+l 

:IF Q2(I)=H3 THEN A$=STR()($( ) ,H3+3, (H4-H3)-3) 
:IF Q2(I)=H3 THEN 690 

40 
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PRXRAM LISTING 

:IF I[]E5 Th€N 67Q 
: A$ =S TR ( XS ( ) , H3+1 , ( H4-H3 ) -1 ) 
680 REM % 

LOCATING THE LINE NlMBER THAT 

GOES WITH EACH STATEMENT A$ 
690 IF HL[ ]E5 THEN 710 

700 IF H3]=Q2(H1) Th€N A1$=STR()($( ) ,Q2(H1 )+l ,2) 
:IF H3]d32(Hl) THEN 760 
:HL=HL-1 
:GOTO 700 

710 IF H3]=y2(Hl) ANO H31Q2(H1+1) THEN A1$=STR(X$( ) ,ti2(Hi )+i ,2) 
:IF H3]=Q2(H1) ANO H3[Q2(H1+1) Th€N 760 
:H1=HL-1 

:IF HL=0 THEN 720 
:GOTO 710 

720 SELECT PRINT 005(80) 

:PRINT HEX(03);AT(12,12);"ERR0R, (P56) at line No. 640, "this can be 
caused by a protected program." 
730 IF D7$="216" THEN $CL0Se/216 
:IF D7$s"215" THEN $CUDSE/215 
:IF D7$="20A" THEN $CL0SE/20i| 
:IF D7$s"211" THEN $CUDSE/211 
740 FOR 1=1 TO 12000 
:NEXT I 

:RETURN CLEAR ALL 

:LOAD T "BASchart" 

750 REM % 

GO TO Th€ STRING CONVERSION T 

HEN THE MAIN BOOY 
760 UNPACK Al$ TO Al 
:Q, I, 12, 13=0 
:A1$=HEX(00) 
:Q23() ,Q33()=ALL(00) 
770 RtM % 

Shift the statement to the le 

ft, if needed 
:A1$=A$ 
:I2=LEN(A1$) 
780 Q=Ci+l 

:IF Q=125 THEN 790 
:IF STR(A1$,Q,1)=HEX(20) THEN 780 
:IF STR(A1$,1,1)[ ]HEX(20) THEN 800 

41 44 
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PROGRAM LISTING 

:A$^TR(A1$,Q,I2-Q) 
:GOTO 800 

790 A$='*9S COKWENT, THIS LINE CANNOT BE PROCESSED" 
800 A1$=HEX(00) 

:I2,QsO 
810 REM % 

identify the first byte (comm 

and) in the statement 
820 1=0 
830 IsI+1 

tHEXUM^ACK STR(A$,J,1) TO Q6$ 

:IF Q6$[ ]Q5$(I) THEN 850 

:A1$=A$ 

:I2::LEN(A13) 

:I3=LEN(Q4$(I)) 

:IF I2+I3]123 THEN I2=I2-(I3+1) 
860 IF I[83 THEN A$=Q4$(I)&" "iSTR(Al3 ,2, 12+13) 
:ELSE A$=Q4$ ( I ) iSTR ( A13 , 2 , 12 + 13) 
:Q6$=HEX(00) 
:GOTO 860 

850 Q6$=HEX(00) 

:IF I[ ]123 THEN 830 
860 Al$sHEX(00) 

:I, 12,13=0 
870 REM % 

identify any referenced line 

number in the statement 
88U X1=0 

:y=POS(A$=HEX(FF)) 
:IF Q[122 T^€^4 890 
:X1=1 
:A1$=A$ 

:A$=STR(A1$,1,Q-1) 

:A1$=HEX(00) 

:Q=0 

890 IF Q=o Then 9ao 
:A1$=A$ 
:I2=LEn(A1$) 
:IF I2-Q]l THEN 900 
:I=q 

:GOTO 910 

900 I ^S ( STR ( A$ , Q +1 , 12-Q) =HEX(2 CFF ) ) +Q 
910 ^€XUNPACK STR(A$ ,Q+1 ,2) TO Q6$ 

:IF I=Q THEN A$=STR(Al$,l,Q-l)iQ6$ 
920 IF I[]Q THEN A$=STR(A13 ,1 ,Q-1)«eQ6$4STR(A13 , 1, 12-(I-1) ) 

42 
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PROGRAM LISTING 

:Q6$,Ai$=h€X(QQ) 
:I,I2,Q=0 
:GOTO 880 

93Q REM % 

identify all HEX coded bytes 

in the statement 
940 Q=Q 

:Q6$=HEX(QQ) 
: 1=1+1 

:IF I]123 THEN 980 
:HEXPACK Q6$ FROM Q^(I) 
950 0=P0S(A$=Q6$) 

:IF Q=0 THEN 940 
: A1$=A$ 

:I2=LEN(A1$)-Q 
960 IF I[83 THEN 970 

:IF I2[l THEN A$=STR(A1$,1,Q-1)4Q4$(I) 

:ELSEA$=STR(A13,1,Q-1)&Q4$(I)&STR(A13,Q+1,I2) 

:Q,I2=0 

:A1$=HEX(00) 
■ :GOTO 940 

970 IF I2[l THEN A$=STR(A1$,1 ,Q-1)&Q4$(I) 

:ELSEA$=STR(A13,1,Q-1)&" "AQASd)*" "&STR( Al3 ,Q+1 , 12) 

:Q,I2sO 

:A1$-HEX(00) 

:GOT0 940 

980 1=0 

:Q=P0S(A$=HEX(8A))+P0S(A$=HEX(8B))+P0S(A$=HEX(D3))+P0S(A$=HEX(O2))+ 
P0S(A$=HEX(F5) )+POS(A$=HEX(OC) ) 
:IF Q[ ]0 THEN 940 

:COnvert ai to A13,(#W) 

990 IF A1]=N2 AND Al[=N3 THEN 063=07$ 
:ELSED8$="005" 
:IF AI]n3 THEN 1310 
:Q6$=A$ 

:A$=Al$&" "4Q6$ 
:A13 ,Q6$=HEX(00) 
:IF De$="005" THEN 1100 
:SELECT PRINT 005(80) 
1000 IF T=l THEN 1020 
:PRINT HEX(03) 
:T^ 

:IF A1L»2 THEN 1020 
rSELECT PRINT [08$] (130) 

;print hex(uc) 

•PRINT V //////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////" 

43 
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PRXRAM LISTING 

IQIQ PttiNT " PARTIAL 
FUOW-CHART QF •';T$ 

:PRINT FROM LI 

NES ";N2;" to ••;N3 
1Q20 SELECT PRINT QQ5(8Q) 

:PRINT HEX(Q^);AT(6,Q);STR(A13,1,80) 
1Q30 PRINT AT(3,Q);" [[[[[[[[[[[tttttttttLttttttLtt NOW READING ]J]JJjJJJ 

]]]]]]]]]]]]]]]]]]]]]]" 
1040 PRINT AT(5,0);BOX(0,75);AT(7,0);B0X(0,75) 

:IF LEN(A$)]79 Th€N 1050 

:A9=(lNT((80-LEN(A$))/2))-2 

:IF A9t0 Th€N 1050 

:PRINT AT(6,A9);A$ 

:GOTO 1060 

1050 PRINT AT(6,0);STR(A$,1,78) 

1060 PRINT AT(8,l);'Viow at sector # ••;0 

:PRINT AT(9,35) ;"Percentage of processing completed:"; lNj(100-( (100*( 

(QO-0)/Q8))+l));"9S" 
1070 PRINT AT(16,18);B0X(1,29) 

:PRINT AT(8,0);B0X(2,23) 

:PRINT AT(8,34);B0X(2,41) 

:PRINT AT(9,l):"Ending sector # ^QO 

:PRINT AT(8,40);''numbered statements in sector:'*;£5 

:IF ZlSa^Y" Th€N PRINT AT(16,20) ;**Remarks are being included" 
1080 PRINT AT(l9,8);"operator note: processing time varies with each pr 

ogram , " 

:PRINT AT(20,25) ;"the average is 10 minutes for every 30 sectors." 
1090 PRINT AT(12,0);B0X(3,75); 

:PRINTUSING 140 

:PRINTUSING 150,T3,O8$ 

:PRInTUSING 160 

:PRINT AT(13,3);B0X(1,69) 
1100 SELECT PRINT t08$] (130) 

:GOSUB 1110 

:GOTO 660 

1110 REM % 

STmT OF THE MAIN PROGRAM ... 



1120 P=0 
:J=0 

:G0SUB '96 

:IF P=l Th€N RETURN 
:J=POS(STR(A$,J)=HEX(20)) 
:GOSUB '96 

:IF P=l THEN RETURN 
:IF STR(A$,J,5)="DEFFN" THEN L1=0 
:IF STR(A$,J,5)="DEFFN" THEN 1160 
1130 IF L2=l THEN 1270 

44 
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PRXRAM LISTING 

;G0SU6 '66 

:IF U«l THEN QOSUB 3750 
1140 QOSUB '15 

:IF £9=1 THEN 1140 

:IF U6=l THEN QOSUB '66 
1150 IF A23=*'ST0P" OR A23="END" THEN L3=l 

: RE TURN 

1160 U=0 

:IF c3="N*' Then m=i 

:IF M<=1 THEN 1230 

:IF XQ=1 THEN QOSUB '81 

:IF Y0=1 THEN QOSUB '83 

:GOSUe '66 

: PRINT 

:PRINT 

: PRINT 

1170 Ff^lNT " $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 

:PRINT 
:PRINT 

1180 PRINT " MARKED" 
:PRINT 
:PRINT 
: PRINT 



1190 PRINT 


It 








ssss u 


U 


BBBB 


RRRR 


QOOUO 


U U 


TTTTT 


mil 


N N 


EEEE SSSS" 










:PRINT 


N 








S U 


U 


B B 


K R 


0 0 


U U 




T 


I 


NN N 


E S" 










1200 PRINT 


N 








SSSS U 


U 


BBBB 


RRRR 


0 0 


U U 




T 


I 


N NN 


EEEE SSSS" 










:PRINT 


tt 








S U 


U 


B B 


R R 


0 0 


U U 




T 


I 


N N 


E S" 










1210 PRINT 


II 








SSSS UUUUU 


BBBB 


R R 


00000 


UUUUU 




T 


mil 


N N 


EEEE SSSS" 











1220 PRINT 

:PRINT " $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ " 

:M=1 

: PRINT 
:PRINT 
: PRINT 

1230 IF X0=1 THEN QOSUB '81 
:IF Y0=1 THEN QOSUB '83 
:IF a=l THEN 1270 
:L1=1 

:G0SU6 '66 
12A0 PRINT 
: PRINT 

:PRINT V//////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////" 
: PRINT 

45 
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PROGRAM LISTING 

:PRINT 
125Q PRINT STR(A$,J) 
:PRINT 
:PRINT 

:PRINT "* SUBROUTINE *" 
:PRINT ";STH(A$, 1,0-1);" 

:PRINT 

:PRLnT " I" 
1260 EsO 
: RETURN 

1270 GOSUe '66 

:IF Usl THEN GOSUB 3750 
1280 GOSUB '15 

:IF A2$="ST0P" OR A2$="EN0" THEN L3=l 

:IF E9=l THEN 1280 

:IF U6=l THEN GOSUB *$$ 

:IF A2$="EN0" THEN GOTO 1300 
1290 IF A2$[]"EN0" THEN L2=l 

:IF L2=l THEN RETURN 
1300 PRINT 

:PRINT "COWCNT: THERE IS AN /END/ COMMAND IN THIS SUBROUTINE." 

:PRINT 

:W3=W3+1 

:RETURN 

1310 IF X0=1 THEN GOSUB '81 
:IF Y0=1 THEN GOSUB '83 
:G0SU6 *66 

:PRINT V//////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////** 
: PRINT 

1320 IF N3[]9999 THEN 1390 
1330 IF Jl[]l THEN 1340 

: PRINT 

: PRINT 

:PRINT "NOTICE: MULTI-STATEMENT LINE NlMBERS WERE USED IN THIS PROG 
RAM" 

1340 IF L3=l THEN 1350 
: PRINT 
:PRINT 

:PRINT "COWCNT, THERE WAS NO /END/ OR /STOP/ STATEMENT IN THIS PRO 
GRAM" 
; W3=W3+1 
1350'if"w3=0 then 1370 
:PRINT 
:PRINT 

:IF W3[]l THEN 1360 

:PRINT "NOTICE: THERE WAS 1 /COWCNT/ GIVEN DURING THIS RUN" 
:GOTO 1370 

1360 PRINT "NOTICE: THERE WERE";W3;" /CO^WENTS/ GIVEN DURING THIS RUN" 
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PROGRAM LISTING 



1370 PRINT 

1380 IF G=0 THEN 1390 
: PRINT 

:PRINT "COWCnT: THIS PROGRAM CONTAINS 'GOTO* STATEMENTS" 

:IF G=l THEN PRINT " THERE WAS 1 /GOTO/ OETECTEO DURING TH 

IS RUN" 

:IF GJI THEN PRINT " THERE WERE »;G; "/GOTO 'S/ OETECTEO OURI 

NG THIS RJ^" 

:PRINT 

:PRINT 

1390 IF D73=^"215'^ THEN 3CL0SE/2l5 

:IF D7$s"216" THEN $CU3SE/216 

:IF 07$="204" THEN 3CIJOSE/20^ 

:IF 07$="211" THEN $CU3SE/211 

:SELECT PRINT 005(80) 
1^00 I,J=0 

:PRINT HEX(07) 

:FDR 1=10 TO 1200 

:nEXT I 

:FOR I^ TO 3 
:PRInT HEX(07) 
:FOR J=l TO 800 
:NEXT J, I 
:FOR I^ TO ^00 
:nEXT I 

:PRINT HEX(07) 
:POR 1=1 TO 2^00 
:nEXT I 

:FOR I^ TO 2 
:PRINT HEX(07) 
:FUR J=l TO 1000 
:NEXT J, I 

1^10 PRINT HEX(03);AT(20,7);B0X(1,56) 
:Z1$=HEX(00) 

:PRInT AT(5, 8); "Processing + Printing completed.." 

:PRINT AT(20,8);"Was it your intention to run this program again? (Y/ 

N)" 

: KEY IN Z13 

:IF Z13="Y" THEN 1^20 
:IF Z1$="N" THEN 1^30 
tGOTO 1^10 



1^20 RETURN CLEAR ALL 
:Z1=1 

:LOAO T "BASchart" 

1^30 $PSTAT=" " 

: RETURN CLEW ALL 



:00m aEAR 
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PROGRAM LISTING 

:LOAO T "START" 

:ERROflPRlNT HEX(03);AT(15,8);"UN/eLE TO LOAO THE STWT PROGRAM" 
:STOP 

:ENO 

1A40 REM % 

SUBROUTINE (OEFFN'15) 



1450 REM search statement string for / locate and return position of 
1460 REM ' ' 'THEN' /compare statement against 
1470 REM (fOR.NEXT, ELSE, REM) 
1480 OEFFN'15 

: T2$=A$ 

:E9=0 

:F6=1 

:J=0 

:GOSUB '96 

:IF P=l THEN RETURN 

:E2=P0S(STR(A$,J)=HEX(20)) 

:N$=STR(A$,J,E2-J+1) 
1490 IF T2$=" " THEN RETURN 
1500 3=0 

tGOSUB '96 

:JsP0S(STR(T2$,J)=HEX(20)) 

:QOSUB '96 

:B1=J 

:J=P0S(STR(T2$,J)=HEX(20)) 
:IF J]123 OR J[2 THEN J=2 
:R$=STR(T2$,B1,J-1) 
1510 IF STR(R$,1,3)="REM" OR STR (R$,l ,1 )="%" ANO Z1$«"N" THEN RETURN 
:IF h'6=0 THEN A$=T2$&S9$ 
:T2$=" " 
:GOTO 1520 

1520 IF E[=4 THEN 1620 

:IF F4[]0 THEN 1530 

:Wl=Wl+l 

:QOSUB 3820 

:F4=1 
1530 J=0 

:GOSUB '96 

:IF P=l THEN RETURN 
:B«J 

: J=POS( STR ( A$ , J ) =HEX( 20) ) 
:E1=J 

•GOSUB '96 
:B1=J 

:J=P0S(STR(A$,J)=HEX(20)) 



ERIC 



48 
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PROGRAM LISTING 

:IF J]123 OR J[2 THEN J=2 
15^(0 E3=J 

:K2$=STR(A$,BI,E3-1) 
155Q IF K2$[]"IF" THEN 158Q 

:F5=1 

1560 MAT SEARCH STR(A$, J) ,=HEX(2Q5i(i(8i(54E) TO AIS 
:J3=VAL(ftl3,2) 
:A1$=ALL(Q0) 

:IF J3[=0 THEN G0SU8 '19 
157Q IF F5=0 THEN RETURN 
:F5=0 
:J=J3+5 
:T13=" " 
:GOSUB '95 

1580 IF K2$[]"F0R" ANO K23t ]"NEXT" THEN 1590 

:T1$=S9$ 

:GOSLB '95 
1590'lF K23*"F0R" THEN E=E+1 

:IF K2$="NEXT" THEN E=E-1 

:J0=0 

:J0=P0S(B2$-",") 

:IF J0=0 OR K2$[]"NEXT" THEN 1600 
:A1$>B2$ 

:B2$=STR(A13,1,J0-1) 
:A$=N$&" "4K2$&" "&STR(A13,J0+1) 
:E9=1 
1600 A2$=K2$ 

:IF E[=i( THEN 1610 

:IF E9=l THEN PRINT N$:" ";A2$;" ";B2$ 
:ELSEPRINT STR(A$,l,12i() 
:GOTO 1630 

1610 E=E+1 
:F4=0 
:A2$=K2$ 

:IF K23="F0R" QR K2$="NEXT" THEN J=E3 
:Q0SUB 1680 
:GOTO 1630 

1620 QOSUB '10 

1630 IF A2$=" FOR" THEN A23="F0R" 
:IF A2$='' NEXT" THEN A2$='1^E)a" 

:IF A23=*'F0R" THEN F23=STR(B2$,1 ,P0S(STR(B2$, 1) = "=")-1 ) 
: QOSUB '98 
:F6=0 
1640 GOTO 1490 

1650 REM % 



ERIC 
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PRXRAM LISTING 

SUBROUTINE (DEFFN '10) 



U60 REM locate / compare (FOR,NEXT,REM,GOTO,GaSUB) 
1670 DEFFN'IO 
:J=0 

:GOSUB '96 

: J=POS ( STR ( fl$ , J ) =HEX( 20) ) 
:E1=J 

:GOSUB '96 

:IF P=l Th€N RETURN 
:B1=3 

: J=POS (STR ( fl$ , J ) =HEX(20) ) 
:IF J]123 OR J[2 Th€N J=2 
:E3=J 

•A23=STR(fl$,ei,E3-l) 
1680 S=0 

:IF A23t ]"F0R" THEN 1690 

:T1$=S9$ 

:GOSUB '95 

:GOSUB '30 

:RETURN 

1690 IF A23t]"NEXT" THEN 1710 
:IF E9=l Th€N 1700 
:Tl3=S9$ 
:GOSUB '95 
:J0=0 

:J0=P0S(B23=",") 
:IF J0=0 Th€N 1700 
:A1$=B2$ 

:B23=STR(A13,1,J0-1) 

:A$=N$&" "&A23&" "&STR(A13,:!0+1) 

:E9=1 

:A13=HEX(00) 
1700 G0SU6 '35 
: RE TURN 

1710 IF STR (A23,l,l )[]"%" ANO STR( A23,l ,3) [ ]"REM" THEN 1720 
:B2^1 

:B23=STRCfl3,B2) 
:GOSUB '75 
: RE TURN 

1720 IF «2$[]"GaT0" THEN 1730 
:T1$=" " 
:GOSUe '95 
: 02$=" GOTO" 
tGOSUB '45 
: RETURN 
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PROGRAM LISTING 

1730 IF STR(A2$,1,5)[]»Q0SUB» Th€N 1740 
:T1$=" " 
:GOSue '95 
:02$="Q03Ub" 
:GOSue •45 
: RETURN 

1740 IF A2$[]"0N*» THEN 1800 
:T1$=" " 
:J=B1-1 
:QOSUB '95 

:mAT SE/«CH A$,="Q0T0» to A1$ 

:IF VAL(A1$,2)=0 THEM MAT SEARCH A$ ,="QOSUe" TO Al$ 

:J=VAL(A1$,2) 

:A1$=ALL(00) 

:IF J[ ]0 THEN 1750 

: J=E3 

•GOTO 1800 

175C C2$=STR(A$,E0+B2,J-(B2+e0+l)) 

: J=POS (-STR(A$ ,1 ,POS(-STR(A$ ,1 , J-l)[ ]HEX(20) ) )=HEX(20) ) 

:GOSUB '95 

:J0=O 
1760 00=J0+1 

:IF STR(B2$,J0,1) = " " THEN 1760 
1770 IF STR(B2$,J0,4)[]'»G0T0" THEN 1780 

:T1$=S9$ 

:J=83*E0-1 

:GOSUB '95 

:02$="GOTO»* 

:GOTO 1790 

1780 IF STR(B2$,J0,5)[]"Q0SUB" THEN 1800 

:T1$=S9$ 

:J=B2+ED-1 

:QOSUB '95 

:02$="QOSUB" 
1790 QOSUB '40 

: RE TURN 

1800 IF S=0 THEN QOSUB '20 
: RETURN 

1810 REM % 

SUBROUTINE (0EFFN'20) 



1820 REM compare (IF.PRINT, INPUT, G0SUB,G0T0,ST0P,EN0,RETURN) 
1830 OEFFN '20 

1840 IF A2$[]"IF» THEN 1950 
:J=B1+E3-1 

51 
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PROGRAM LISTING 

:GOSUe '96 

:IF P=l THEN RETURN 
:B2=J 

:GOSUB 1560 

:IF J3=0 THEN RETURN 

:J=J3+B2 

:C2$=STR(A$,B2,J3-1) 

:T1$=" " 

:GOSUe '95 
1850 D2$=B2$ 

:J=D 
1B6D 3s3+l 

:IF STR(02$,J,1)=" THEN I860 
187D B2$=S7R(D2$,J,PC6(S7R(D2$,J)=HEX(2D))-1) 

:D2$-" " 

1880 IF B2$="PRINT" OR B2$="INPUT" OR B2$="PRINTUSING" OR B2$="KEYIN" 

OR B2$s"L INPUT" OR B2$="GDT0" OR B2*-"Q0SUB" THEN D2$=e2$ 
1890 IF B2$t]"PRINT" AND B2$t ]"INPUT" ANO B2$t ]"PRINTUSING" AND B2$t J^KtY 

IN" AND B2$t ]"LINPUT" AND B2$t l^GOTO" AND B2$t ]"QOSUB'« THEN 1900 

:J«B2+ED-1 

:GOTO 1930 

1900 IF B2$]s'»:" THEN 1920 
:tX)NVERT B2$ TO N 
:ERRORN=0 
:GDTO 1920 

1910 N=0 

:D2$s'*Q0TD" 
:J=B2-1 
:GOTD 1930 

1920 N=0 

:D2$=" " 

:J«B2-1 
1930 T1$=S9$ 

:Q0SUB '95 

:GOSUB '60 
19HD RETURN 

1950 IF A2$="£LSE" OR A2$«"ERR0R" THEN QOSUB '65 

:IF A2$="L0AD" OR A2$*"STDP' OR A2$s"END" THEN QOSUB '50 
:IF A2$="RETURN" ANO STR(B2$,1 ,5) t ]"CLEflR" THEN GOSUB 'B5 
:IF St]0 THEN RETURN 

1960 T1$=S9$ 

:IF STR(A2$,li5)t]'TONT" ANO STR(A2$,1 ,10) [ ]"PRINTUSING" THEN 1980 
:Ji|=J+El-l 
1970 3H=i3H+l 

:IF STR(A$,Ji(,l) = " ANO 3Hl6L THEN 1970 
:IF 3H=&1 THEN B2$s"l BLANK LINE" 
:IF Jiit]81 THEN GOSUB '95 
:QOSije '82 
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PROGRAM LISTING 

: RETURN 

1980 IF STR(A2$,l,5)t ]'WUT" ANO STR(A2$,1 ,5) [ ]"KEYIN" ANO STR(A2$,1,6) 

tl^LINPUT" THEN JsBl-1 

:GOSUB '95 
1990 QOSUB '80 

: RETURN 

2000 REM % 

SUBROUTINE (OEFFN'98) 



2010 REM compare (FOR,ELSE,NEXT) 
2020 OEFFN'98 

2030 IF A2$t]"F0R" THEN 2040 
:C=C+1 

:IF Ct51 THEN a$(C) = "FOR "&F2$ 
:IF Ct51 THEN L2$(C)=STR(A$,B,E1-B) 
:GOTO 2060 

2040 IF A2$t ]"NEXT" THEN 2060 

:IF Ct51 THEN A2$="NE)a "&B2$ 

:L3$="F0R '•&B2$ 

:IF Ctl THEN QOSUB '99 

:IF Ctl THEN 2060 

:IF Ct51 ANO U$(C) [] U3$ THEN GOSUB '99 
2050 C=C-1 

2060 FOR J5=B TO El-B 

:IF STR(A$,J5,l)t"0" OR STR(A$,J5,1)]'*9" THEN GOSUB '92 
:NEXT J5 

2070'CONVERT STR(A$,B,E1-B) TO Tl 

:IF TltsL AND F6sl THEN QOSUB '91 

:L=T1 

: RETURN 

2080 REM % 

SUBROUTINE (0EFFN'60) 



2090 REM print diamond symbol / conpare (GOTO) / print- 
2100 REM YES or NO option / compare (PRINT, INPUT, QOSUB) / print- 
2110 REM PRINT or INPUT 
2120 OEFFN'60 
:N1,N50 

:IF Xl=l THEN GOSUB 2390 
2130 CONVERT 82$ TO Nl 
:ERRORN,N1=0 
:GOTO 2150 



2140 CONVERT N$ TO N 
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PROGRAM LISTING 

:ERR0RNa,N=O 
:GOTO 2150 

2150 KsE*20 

:IF X0=1 THEN QOSUB '81 
:IF YOsl THEN QOSUe '83 
:S=1 

:F0R S3=l TO 2 
:GOSUB '90 

:PRINT TflB(K);" 1" 
:NEXT S3 

:IF E^ THEN K=l 
2160 GOSUB '90 

:PRINT TflB(K);" /*";N$ 
:GOSUB '90 

:PRINT TflB(K);" / *" 

: GOSUB '90 

:PRINT TflB(K);" / *"; 

:IF 02$[]"G0T0" THEN PRINT " " 

:IF O2$[]"G0TO" THEN 2170 

:IF N1[N Th€N PRINT TflB(K+36);" /J" 

:ELSEPRINT " " 
2170 GOSUB '90 

:PRINT TflB(K);" / IF *";C23; 

:IF D2$[]"GaTQ" THEN PRINT " " 

:IF O2$[]"G0TO" THEN 2180 

:IF N1[N Th€N PRINT TflB(K+36);" J" 

:ELSEPRINT " " 
2180 GOSUB '90 

:PRINT TABCk);" / THEN 
2190 IF D2$[ ]"GOTO" THEN 2240 

:G=G+1 

:PRINT 

:IF Nl[N THEN PRINT TflB(K+36);" I" 
:ELSEPRINT " " 
:GOSUB '93 

:PRINT TflB(K);" * ";02$;" / [YES] 
:IF N1[n THEN PRINT TflB(K+36);" J" 
:ELSePRlNT " " 
:GOSUB '90 

2200 PRINT TflB(K);" * ";B2$; TflB(K+ll) ; 

:PRINT "/ ] " 

:GOSUB '90 

:PRINT TflB(K);" * /"; 

: IF NIX Th€N PRINT TflB(K+38);" J" 

:ELSEPRINT " " 

: GOSUB '90 
2210 PRINT TflB(K);" * /"; 

:IF NljN Th€N PRINT TflB(K+38);" J" 

:ELSEPRINT " " 

: GOSUB '90 
2220 PRINT TflB(K);" V"; 
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PROGRAM LISTING 

:IF ^a]N THEN PRINT T«(K+38);" t" 
:£LSEPRINT " " 
:IF £=0 THEN K=0 
:QOSUB '90 

:PRINT TflB(K);» i«; 
:IF Nl]N THEN PRINT TflB(K+38);" V« 
:£LSEPRINT " " 
:QOSUB '90 
2230 PRINT TflB(K);" [NO]" 
:GOTO 2380 

2240 IF D2$[ ]'»K£YIN" ANO D2$[ l^LIM^UT" ANO 02$[ ]"INPUT" THEN 2250 



:PRINT 




:GOSUB '93 




:PRINT TflB(K);" 


• ";02$;" / ";B2$ 


:QOSUe '90 


:PRINT TABCk);" 


• /" 


:GOTO 2370 




2250 IF D2$[ ]"PRINT" 


ANO 02$[ ]"PRINTUSING 


2260 PRINT 




:GOSUB '93 




:PRINT TflB(K);" 


• / [YES] 


:QOSUB '90 




:PRINT T«(k);« 


/„=======] 


2270 QOSUB '90 




:IF D2$a"PRlNT" 


THEN PRINT TflB(K);" 


( ";B2$ 


:£LSEPRINT TflB(K):" • / 


:QOSUB '90 




:PRINT TflB(K);" 


• / 


:QOSUB '90 




:PRINT TflB(K);« 


•/ 


2280 QOSUB '90 




:PRINT TflB(K);" 


• n 


:QOSUB '90 




:PRINT T/©(K);" 


[NO]" 


:GOTO 2380 




2290 IF STR([]e$,l,5)[]"Q0SUB" THEN 2330 


2300 PRINT "•" 




:G0SUB '93 




:PRINT T«(K);" 


• / [YES] 


:QOSUB '90 




:PRINT TflB(K);" 


/=.======] 


2310 QOSIB '90 




:PRINT T/©(k);" 


• / 


:QOSUB '90 




:PRINT TflB(K);" 


• / 


:QOSUB '90 




:PRINT TflB(K);" 


•/ 


2320 QOSUB '90 





/" 

* / ( PRINT 

( PRINTUSING ( «;B2$ 



";D2$;" ";B2$;TAB(K+36);":" 
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:PRINT Tfle(K);" 


• 


:QOSUB '90 




:PRINT Tfle(K);" 


[NO]" 


:GOTO 2380 




2330 IF STR(B2$,1,6)[ ]"RETURN" ANO STR(82$,1 ,7)[ ]" RETURN" 


:PRINT 








:PRINT Tfle(K);" 


* / [VES] :::::::::::::::" 


:QOSUB '90 




:PRINT Tfle(K);" 


♦ /=======3=]:: ::- 


2340 QOSUB '90 


:PRINT T«(K);" 


♦ / :: RETURN ::" 


:QOSUB '90 




:PRINT T«(K);" 


« / • • . .ti 


: QOSUB '90 




:PRINT Tfle(K);" 




2350 QOSUB '90 




:PRINT Tfle(K);" 




:QOSUB '90 




:PRINT T«(K);" 


[NO]" 


:GOTO 2380 




2360 PRINT 82$ 




:QOSUB '93 




:PRINT Tfle(K);" 


* 


:QOSUB '90 




:PRINT T«(K);" 


« /n 


2370 QOSUB '90 




:PRINT Tfle(K);" 


« /H 


:QOSUB '90 




:PRINT Tfle(K);" 


« /« 


tOOSUB '90 




:PRINT Tfle(K);" 


*/t" 


2380 IF E=0 THEN K=0 





:GOSUB '8 
: RE TURN 

2390 PRINT 

:PRINT "COWCNT, 

ESS TO ITS EXTENT" 

:PRINT 

:W3sW3+l 

:RETURN 



2400 REM % 

SUBROUTINE (0EFFN'30) 



THIS /IF. ..THEN/ STATEMENT MAY BE TOO LONG TO PRX 



2410 REM print diamond (decision) / compare (FOR) 
2420 DEFFN»30 
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2^(30 KsE*20 

:IF xo=i Then gosub 'Bi 

:IF Y0=1 THEN GOSUB '83 
:S=1 

2^1^10 GOSUB '90 

:PRINT Tfle(K);" 
:GOSUB '90 

:PRINT Tfle(K);" I" 
: GOSUB '90 

:PRINT T«(K);" /*";N$ 
: GOSUB '90 

:PRINT T«(K);" / *" 

GOSUB '90 

:PRINT T«(K);" / *" 
: GOSUB '90 

:PRINT Tfle(K);" / *" 
:IF A2$="F0R" THEN A2$s" FOR" 
:G0SU6 '90 



2H60 PRINT T«(K)-" 

:GOSUB '93 

:PRINT T«(K); 
2H7Q GOSUB '90 

:PRINT Tfle(K); 

: GOSUB '90 

:PRINT Tfle(K); 
2HBQ GOSUB '90 

:PRINT Tfle(K); 

: GOSUB '90 

:PRINT T«(K); 
2H9Q E=E+1 

:F0(E)=1 

: RETURN 



/ ";A2$;Tfle(K+12);"* ";B2$ 
* / ] » 

* /";T«(K+28);"1'' 
* /";T«(K+27);'' V" 
* /";Tfle(K+28);"l" 
*/";Tfle(K+28);"l" 



2500 REM % 

SUBROUTINE (DEFFN'35) 



ERIC 



2510 f^M print dianwnd (decision) / compare (NEXT) 
2520 OEFFN'35 

2530 IF X0=1 THEN GOSUB '81 
:IF Y0=1 Then GOSUB '83 
:IF E=0 THEN RETURN 
:F0(E)=O 
:E=E-1 
:K=E*20 
:Ssl 

25HQ GOSUB '90 

:PRINT Tfle(K);" /*"; T«(K+28) ; "1 " 

: GOSUB '90 

:PRINT T«(K);" / TflB(K+28) 



:G0SUB '90 
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2550 PRINT TAB(K) 
:GOSUB '90 
:PRINT T«(K) 

2560 GOSUe '93 
:PRINT T/e(K) 
:GOSUB '90 
:IF A2$="N£XT 

2570 PRINT TflB(K) 
:GOSue '9q 
:PRINT TflB(K) 
:QOSUB '90 

2580 PRINT T/e(K) 
:QOSUB '90 
:PRINT TAB(K) 
:GOSUB '90 
:PRINT TAB(K) 
:GOSUe '8 
:RETURN 



2590 REM % 

SUBROUTINE (DEFFN'AO) 
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/ *";Tfle(K+28);»:» 
^ *";TflB(K+28);»l» 
• [ 



THEN A2$=» NEXT" 
• ";A2$;TflB(K+12);"/ ••;B2$ 



/" 
/" 
/" 



2600 
2610 
2620 

2630 
26A0 



2650 



2660 



REM locate position in string statement of •/ / print -i 
D£FFn"4q^"°"^ ^ diamond with ON / canpare (GOTO) 

:IF Xl=l THEN QOSUB 2820 
W,J,J0=O 
V2=JQ 
:W=w+l 
:J=0 

0=PaS(STR(a2$,V2+l)= 
:JO=JO+J 

:IF J0-V2-l=0 AND J]Q 
:IF JO-V2-1=0 AND J]Q 



2670 
2680 



THEN V(W)=0 
- - Th€N 26A0 

IF J[?0 ^1^U26^^^ STR(a2$.V2+l,J0-V2-l) TO V(W) 
CONVERT STR(B2$,V2+1,LEN(B2$)-V2) TO V(W) 

THEN GOSUB '81 
THEN GOSUB '83 



2690 



IF X0=1 
:IF V0=1 
:K=E»20 
:W2=H-1 
:GOSUe >90 
:PRINT TflB(K);" 
:FOR Z=l TO W2 

IPRINT 

INEXT Z 
PRINT » 
K3=W2»4+K 
GOSUB •90 
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: PR INT 




1 It 


:GOSUB 


90 




: PRINT 


TflB(K5J 


1 tt 


:Q05UB 


•90 




:PRINT 


TAB(K3) 




2700 QOSUB 


'90 




:PRINT 


TflB(K3) 


■ ft 


: QOSUB 


•90 




:PRINT 


TflB(K3) 




: QOSUB 


»90 




:PRINT 


TflB(K3) 




2710 GOSUB 


•90 




: PR INT 


TflB(K3; 




: GOSUB 


•90 




: PRINT 


TAB(K3) 


• ^ 


: GOSUB 


•90 




2720 PRINT 


TAB(K3) 


• tt 


: GOSUB 


•90 




:PRINT 


TAB(K3) 


• tt 


: GOSUB 


•90 




: PR INT 


TAB(K3) 


• It 


: GOSUB 


•90 




:PRINT 


TAB(K3) 


• ft 


2730 GOSUB 


•93 




:PRINT 


TAB(K); 


It 


:FOR Z: 


=1 TO W2 


:PRINT 







:NEXT Z 




:PRINT 


tt tt 




: GOSUB 


•90 




:PRINT TAB(K); 


It 



/*";N$ 



»tt 



»tt 



f »tt 

/ ON ••';C23 

* -;D2$;TAB(K3+15);"/' 
» /tt 

» /t» 

• /tt 

*/- 



)t> 
> 



:FOR Z=l TO W 

:PRINT •• ";z; 

:N£XT Z 
2740 GOSUB ^90 

:PRINT TAB(K);" 

:F0R Z=l TO W 

:PRINT " ••; 

:NEXT Z 

:PRINT " •• 
2750 QOSUB ^90 

:PRINT T«(K);" "; 

:FOR Z=l TO W 

:PRINT " 

:NEXT Z 

:PRINT •• " 

: QOSUB '90 

:F0R Z«l TO W 

:£$=" 

2760 CONVERT V(Z) TO £$,(#####) 
:PRINT TAB(Z»8+K);STR(E$,1,5); 
:N£XT Z 
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PROGRAM LISTING 



2770 PRINT " " 

:QOSUB '90 

:PRINT T«(K);" 

:FOR 2=1 TO W 

:PRINT " 

:NEXT Z 

:PRINT " " 

:FOR F=l TO 2 

tGOSUe '90 

:PRINT T/©(K);" 

:FOR Z=:l TO W 

:PRINT " "; 

:N£XT Z 
2780 PRINT " " 

:N£XT F 

:GOSUB '90 

:PRINT TflB(K);" -"; 
:FOR Z=l TO W2 

:PRINT " '•; 

:NEXT I 
:PRINT " " 
:C30SUB '90 

:PRINT T«(K3);" " 
:GOSUB '90 

:PRINT Tfle(K);" — 
2790 FOR Z=l TO W2 

:PRINT " 

:NEXT Z 

:PRINT "V" 
2800 IF 02$[]*'GOTO" THEN 2810 

:G=G+1 

:B2$=^4 

:QOSUB '^ 

:RETURN 

2810 GOSUB *8 
:R£TURN 

2820 PRINT 

:PRINT "COWCNT, THIS /ON. .GaSUB(GOTO)/ STATEMENT MAYBE TOO LONG TO 
PROCESS TO ITS EXTENT" 
:PRINT 
:A1$=B2$ 

:J=P0S(-B2$=",") 

:B2$=STR(A13,1,J-1) 

:A1$=:HEX(00) 

:W3=W3+1 

:RETURN 

• 2830 REM % 
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PROGRAM LISTING 

SUBROUTINE (QEFFN'il5) 



2840 REM print - block around GOTO / compare (GOTO) 
2850 DEFFN'ilS 
2860 S=l 

:IF X0=1 THEN GOSUB '81 

:IF Y0=1 THEN GOSUB '83 

:K=E»20 

: GOSUB '90 

:PRINT Tfle(K);" I" 
:QOSUB '90 

:PRINT Tfle(K);" !" 
:IF E=0 THEN K=l 
2870 GOSUB '90 

:PRINT Tfle(K);" ";N$ 

: GOSUB '90 

:PRINT Tfle(K);": :'• 
:GOSUe '93 

:IF a2$[]"G0T0» THEN 2880 

:02$=" GOTO" 

:G=G+1 

2880 PRINT Tfle(K);": ";02$;" ";B2$;Tfle(K+li();":" 
: GOSUB '90 

:PRINT Tfle(K);": :•' 
:Q0SUB '90 

:PRINT Tffi(K);»: 

:IF E=0 THEN K=0 
2890 IF D2$=" GOTO" THEN G0SU8 
:ELSEGOSUB '8 
:RETURN 

2900 REM % 

SUBROUTINE (OEFFN'50) 



2910 REM print - block around STOP or END or LOAO 
2920 DEFFN'SO 
2930 U^ 

:IF A2$[]"L0A0" THEN B2$=" " 

:IF A2$[]"LOA0*' THEN 29HQ 

:J=E3 

:GOSUe '95 
2940 Ssl 

:IF X0=1 THEN GOSUB '81 
:IF Y0=1 THEN GOSUB '83 
:K=E*20 
: GOSUB '90 

:PRINT Tfle(K);" i" 
: GOSUB '90 

:PRINT Tfle(K);" !" 
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PROGRAM LISTING 



:GOSUB '90 
:IF E=0 THEN K=l 
:PRINT T«(K);" 
:GOSUB '90 
2950 PRINT T«(K);" (- 
:QOSUB '90 
:PRINT T/e(K);" ( 
:QOSUB '90 
:PRINT T«(K);" (- 
:GOSUB '90 
:PRINT 
:QOSUB *90 
:PRINT 
:R1=1 
:RETURN 



";N$ 
)» 

"i.;2$;T«(K+12);»)";B2$ 
)" 



2960 REM % 



SUBROUTINE (OEFFN'65) 



2970 REM print - block around ELSE OR ERROR/ print lines and arrows 
2980 DEFFN»65 

2990 IF X0=1 THEN QOSUB '81 
:IF Y0=1 THEN QOSUB '83 
:KsE*20 
:GOSUB '90 

:PRINT T/©(K);" »»»»»»»»»»» »»;^4$ 
: QOSUB '90 

:IF A2$="ELSE" THEN PRINT T«(K);" • ELSE * 

:ELSEPRINT T«(K);" • ERROR • =======] " 

:GOSUB '90 

3000 PRINT T«(K);" »»»»»»»»»»» ;« 
:E=E+1 

:IF A2$=''ELSE" THEN U6=l 
:ELSEU6=2 
3G10 J=E3 

:G0SUB '95 

:A$=N$&" "&B23 

:S=1 

:E9=1 

: RE TURN 

3020 REM % 

SUBROUTINE (OEFFN«75) 



3030 REM print the REMARKS statement 
3040 DEFFN»75 
3050 S=l 

:IF X0=1 THEN GOSUB '81 
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PROGRAM LISTING 

:IF Y0=1 THEN GOSUe '83 

:K=E«20 

:G0SUB '90 

:PRINT Tffi(K);B2$ 

: RE TURN 

3060 REM % 

SUBROUTINE (OEFFN'81) 



3070 REM print line then reference print routine 
3080 OEFFN'Sl 
3090 K=E«20 
:X0=0 

:IF E=0 THEN 
:GOSUe '90 

:PRINT T«(K);": 

:IF E=0 THEN K=0 
:GOSUB '8 
: RETURN 

3100 REM % 

SUBROUTINE (OEFFN'85) 



erJc 



3110 REM print block around RETURN/warning of no stop instr. before subro 

utine 
3120 OEFFN'85 
3130 U=l 

:K=E«20 

:IF X0=1 THEN GOSUe '81 
:IF Y0=1 THEN QOSUB '83 
:FOR S3=l TO 2 
:PRINT T«(K);- 
:Ntxr S3 

:IF E=0 THEN K=l 



:PRINT 


Tffi(K) 


1 tt 


:PRINT Tffi(K) 


• tt 


3140 PRINT 


TflB(K) 


1 tt 


: PRINT 


T«(K) 


1 tt 


:PRINT 


T«(K) 


ft 




: PRINT 
:S=1 

3150 IF Rl[ ]0 THEN RETURN 
: PRINT 

:PRINT "COWCNT, 
OUTINE- 
:W3=W3+1 
: PRINT 
:R1=1 



T^€RE WAS NO /STOP/ INSTRUCTION BEFORE THIS SUBR 
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:RETURN 
3160 REM % 

SUBROUTINE (0EFFN«90) 



3170 REM print down line 
3180 DEFFN'90 
3190 IF EsO THEN RETURN 
3200 FOR K2=I TO E 

:PRINT T«(K2«20-12);"1"; 

:NEXT K2 

:RETURN 

3210 REM % 

SUBROUTINE (0EFFN'91) ... 



3220 REM print warning of instruction No. 
3230 0EFFN'91 
3240 01=1 

:IF T1=L THEN RETURN 

: PRINT 

:PRINT '•CO^»€NT, EITHER INSTRXTION NIMBER ";T1;"0R";L;" IS OUT OF 
OROER" 
3250 W3=W3+1 
: PRINT 
: RE TURN 

3260 REM % 

SUBROUTINE (OEFFN'92) 



3270 REM print line sequence error, abort 
3280 OEFFN'92 
3290 PRINT 

:PRINT "CO^»€NT, INSTRXTIOn ";STR(A$,1) 

:PRINT " DOES NOT HAVE A CORRECT INSTRUCTION NIM8ER." 

:PRINT 

:W3=W3+1 

:RETURN 

3300 REM % 

SUBROUTINE (OEFFN'93) 



3310 REM print ijp or down arrows 
3320 OEFFN'93 
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PRXRAM LISTING 



333Q IF E=0 THEN RETURN 
334Q FOR K2=l TQ E 

:IF F10(K2)=1 THEN PRINT T/e(K2*20-13) ; "/I 

:ELSEPRINT Tfle(K2*2Q-13);" 

:NEXT K2 

:RETURN 

335Q REM % 

SLBRQUTINE (QEFFN'95) 



3360 REM locate and save line following the word after the value J: REM 

if can't then save the word after J 
3370 OEFFN'95 
3380 QOSUe '96 

:IF P=l THEN RETURN 

:B2=J 

:Eii=POS(-fl$=HEX(00)) 
:IF EH^Q THEN Ei|=PC6(-A$[ ]HEX(20) )+l 
:E0=P0S(STR(A$,B2)=HEX(20)) 
:IF Ei|]=115 THEN Xl=l 
:IF E0+B2]=Ei| THEN 
:B2$=STR(A$ ,E0+B2 ,Ei|-(E04e2) ) 
3390 RETURN 

3400 IF B2]-E4 THEN 3410 
:B2$=STR(A$,B2) 
: RE TURN 

3410 B2$=" " 
:RETURN 

3420 REM % 

SUBROUTINE (C€FFN'96) 



3430 REM print warning of statement error, abort 
3440 DEFFN'96 
3450 J=J+1 

:IF J]124 THEN 3460 

:IF STR(A$,J,l)a" " THEN 3450 

:IF j[=124 THEN RETURN 
3460 PRINT 

3470 PRINT "COWCNT, NOT A CO^fLETE BfciC INSTRXTION" 
:P=1 

:W3=W3+1 
:PRINT A$ 
:RETURN 

3480 REM % fic 



ERIC 
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PROGRAM LISTING 

SUBROUTINE (OEFFN'99) 



3490 REM print line sequence reference error, abort 
3500 DeFFN'99 
3510 W3^3+l 
:PRINT 

:PRINT "CO^fENT, THIS PROGRAM HPS A LOGIC ERROR" 
:PRINT " /";A2$;"/ OF LINE NLMBER ";N$ 

:IF C=0 THEN RETURN 

:PRINT " DOES NOT MATCH UP WITH /**;a$(C);"/ OF LINE NUMB 

ER ";L2$(C) 
3520 RETURN 

3530 REM X 

SUBROUTINE (DEFFN'BO) 



354J REM print block around PROCESS / comp^i'e and print (PRINT, INPUT) 
3550 OEFFN'BO 
:K=E*20 

:IF Y0=1 THEN GOSUB '83 
3560 IF X0[]0 THEN 3580 
:FOR S3=l TO 2 
: GOSUB '90 

:PRINT T/8(K);" : " 

:NEXT S3 

:IF E=0 THEN K=l 
tOOSUB '90 

3570 PRINT Tffi(K);" 

:QOSUB '90 

:PRINT Tffi(Kj;": PROCESS :" 
: GOSUB '90 

:PRINT T«(K);": 

:X0=1 
:Z0=1 
3580 IF E=0 THEN 
:GOSUB '90 

:PRINT T/8(K);": :" 

:IF ZO-1 THEN GOSUB '93 

:IF Z0=8 THEN Z0=0 

:IF Z0[ ]1 THEN GOSUB '90 
3590 Z0=20+l 

:$TRAn(B2$," ") 

:$TRAN(A23," ") 

3600 IF A2$="ir*>UT" OR A2$="KEYIN" OR A2$="Lir*>UT" THEN PRINT Tft3(K);": 

I/O "; A2$ ; T flB( K+14 ) ; " : " ; 62$ 
3610 IF STR(A2$,l,2)=STR(a2$,l,2) THEN B2$«" " 

3620 IF A2$t]"INRJT" AND A2$[]"KEYIN" AND A2$t ]"LINPUT" THEN PRINT TAB(k 
);": ";STR(A$,e,EUB);Tffi(K+U);": ";A2$;" ";B2$ 
: RETURN 
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PRXRAM LISTING 

363Q REM % 

SUBROUTINE (OEFFN'8) 



3640 REM print down arrow-line 



OEFFN'8 




:GOSUB '90 




:PRINT TflB(K);" 


) it 
* 


:GOSUe '90 




:PRINT T«(K);" 


V" 


:Q0SUB '90 




:PRINT T«(K);" 


1 M 
* 


:QOSUe '90 




:PRINT T«(K);" 


i it 

m 


:RETURN 





3660 REM % 

SUMROUTINE (OEFFN'A) 



3670 REM print line and arrows, horizontal 
3680 OEFFN '4 
:N,N1=0 

: CONVERT 82$ TO Nl 
:ERRORN,Nl=0 
:GOT0 3700 

3690 CONVERT N$ TO N 
:ERR0RN,n1=0 
:GOTO 3700 

3700 GOSUB '90 

:PRINT Tfle(K); ■ !"; 

:IF Nl[N T^€N PRINT Tfle(K+34) ;"/;" 

:ELSEPRINT " " 

:QOSUB '90 
3710 PRINT Tfle(K);'' V"; 

:IF N1[N T^CN PRINT Tfle(K+34);" J" 

:ELSEPRINT " " 

:QOSUe '90 

:PRINT T(B(K)**' 1"* 

•IF N1[N Th€N PRINT Tfle(K+34);" i" 

:ELSePRlNT " " 

:QOSUB '90 

3720 PRINT TflB(K);" ] 

: GOSUB '90 

3730 IF N1]N THEN PRINT TflB(K+34);" 1« 
:ELSEPRINT " " 
:GOSUB '90 

:IF N1]N THEN PRINT TflB(K+34);" I" 
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:ELSEPRINT " " 
:QOSUB '9Q 

:IF Nl]N THEN PRINT Tfle(K+3A/;" V" 
:ELSEPRINT " « 
:GQSUB '9Q 
37AQ U=l 

:IF U6=Q THEN RETURN 

:U6 ,U=Q 

:E=E-1 

:IF E=0 THEN PRINT "1" 
:RETURN 

375Q IF U[ ]1 THEN 376Q 
:K=E*20 

:IF E=0 THEN K=0 
:U=0 

3760 IF E[l THEN PRINT Tfle(K);*' [ ? J" 

:ELSEPRINT Tfle(K);" " 
3770 GQSUB '90 

:PRINT TflB(K);" V" 

:QOSUB '90 

:PRINT Tfle(K);" V« 
:QOSUB '90 

:PRINT Tfle(K);» i» 
:QOSUB '90 

:PRINT Tm(K);" i" 
:RETURN 

3780 REM % 

SUBROUTINE (0EFFN'19) 



3790 REM print illegal use of IF,THEN, / print module [==] unstructured 
3800 0EFFN'19 

:W3=W3+1 

:PRINT 

:PRINT "tOWCNT, 
ONG TO PRXESS)" 
:PRINT " 
l4>LEfOIT» 
:PRINT STR(A$,1) 
3810 RETURN 



CANNOT READ /IF. ..THEN/ IN STATEMENT (MAY BE TO L 
OR CANNOT MATCH /FOR/ OR /NEXT/ WITH IT'S LOCP CO 



ERIC 



3820 K=E*20 

:QOSUB '90 

:PRINT T/©(K);'' 

:QOSUB '90 

:PRINT T«(k);'* 

:QOSUB '90 

:PRINT TfleCK);* 

:QOSUB '90 
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:PRINT T«(K);" / 
3830 GOSUB '90 

:PRINT TAB(K);" / MODULE *» 
:QOSUB '93 

:PRIN T TAB (K) ; " / " ; Wl ; TAB ( K+1 3 ) ; "* " 
: GOSUB '90 

:PRINT TflB(K);" / *'• 
:GOSUB '8 
RETURN 

3850 REM % 

SUBROUTINE (DEFFN '82) 



ERIC 



"( ( PRINTING ( (" 



3860 DEFFN' 82 
:K=E*20 

:IF X0=1 THEN GOSUB '81 
:IF YD[]0 Th€N 3890 
:FOR S3=l TO 2 
:GOSUB '90 

:PRINT TAB(K);" '." 
:NEXT S3 

:IF E^ THEN K=l 
: GOSUB '90 

3870 PRINT T«(K);" /===============/ ";N$ 

: GOSUB '90 

:PRINT T«(K);" / /" 

:QOSUB '90 
:PRINT T«(K); 
: GOSUB '90 

:PRINT T«(K);" * *" 

:GOSUB '90 

:PRINT T«(K);" # #" 

3880 V0=1 
:X«1 
:Z0=O 

3890 IF EsO THEN Kal 

:IF 20=1 THEN GOSUB '93 
:IF Z0=8 THEN ZOsO 
:IF Z0[ ]1 THEN GOSUB '90 
:Z0=20+1 

:$TRAN(e2$," ") 

:IF B2$="RINT. ." THEN B2$="l BLANK LINE" 
:IF M0D(X,2)=0 THEN 3910 

3900 PRINT TflB(K);" ) )" 

:G0SUB '90 

:PRINT T«(K);" / /" 
: GOSUB '90 

:IF A2$='T'RINT" THEN PRINT T«(K);" / PRINT 
:ELSEPRINT TflB(K);" / PRINTUSING / ";B23 
:GOTO 3920 



/ ";B2$ 
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PROGRAM LISTING 

3910 PRINT T«(K);"( (" 

:GOSUB '90 

:PRINT T«(K);" • ••' 
:QOSUB '90 

:IF A2$=*'PRINT'* THEN PRINT TPe(K);" • PRINT • ";B2$ 

:ELSEPRINT T«(k);" * PRINTUSING • ";B23 
3920 X=X+1 
: RETURN 

3930 REM % 

SUBROUTINE (OEFFN '83) 



3940 OEFFN '83 
:K=E»20 
:Y0=0 

:IF E=0 THEN K=l 
:GOSUB '90 

:IF m00(X,2)=0 then print TflB(K) ; '7=====^========/" 

:ELSEPRINT T«(K ) ; " =================•' 

:IF E=0 THEN K=0 
:GOSUB '8 
:RETURN 

3950 REM % 

SUBROUTINE (OEFFN '66) 



3960 OEFFN '66 

:IF U6=0 THEN RETURN 

:IF U6=2 AND STR(A$,1 , J-1 )=N$ THEN RETURN 
:U6=0 

:IF X0=1 THEN QOSUB '81 
:IF Y0=1 THEN QOSUB '83 
:E=E-1 
:K=E«20 

:IF E^ THEN K=l 

:PRINT TflB(K);" [ C 1" 

:RETURN 

9500 REM % 

GENERAL SUBROUTINE XXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

:PRINT HEX(030E);'*YOU HAVE LOALcO 'OEFFNO' THE GENERAL SUBROUTINES"; 

HEX(OA) 

:LIST 

:ENO 



ERIC 
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PROGRAM LISTING 

9530 OEFFN '0 "SCRATCHT"; HEX(22) ; "BASCHART"; HEX(22) ; " :SAV£T$ ()";HEX(22) 

;"BASCHART";H£X(2200) 
9570 OEFFN '31 

:GOTO 1430 



erJc 
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